a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
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F 
F 
F 
F 
F 
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F 
F 
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FFFFFFFFFF 000000 RRRRRRRR NN NN MM MM LL TTTTTTITIT AAAAAA BBBBBBBB 

FFEFFFFFFFF 000000 RRRRRRRR NN NN MM MM LL TTTTTTTIITT AAAAAA BBBBBBBB 

FF 00 00 RR RR NN NN MMMM MMMM LL TT AA AA 6B ag 
FF 00 00 RR RR NN NN MMMM MMMM LL TT AA AA 8B HB 

FF 00 00 RR RR NNNN NN MM MM MM LL TT AA AA BB be | 
FF 00 00 RR RR NNNN NN MM MM MM LL TT AA AA BB Be 
FFFFFFFF 00 00 RRRRRRRR NN NN NN MM MM LL TT AA AA BBBBBBBB | 
FFFFFFFF 00 00 RRRRRRRR NN NN NN MM MM LL TT AA AA BBBBBBBB | 
FF 00 00 RR RR NN NNNN MM MM LL TT AAAAAAAAAA BB B3 | 
FF 00 00 RR RR NN NNNN MM MM LL TT AAAAAAAAAA BB BA 
FF 00 00 RR RR NN NN MM MM LL TT AA AA 6B Ba = | 
FF 00 00 RR RR NN NN MM MM LL TT AA AA BB 8B ‘hei 

FF 000000 RR RR NN NN MM MM LLLLLLLLLL TT AA AA BBBBBBBB ehh 

FF 000000 RR RR NN NN MM MM LLLLLLLLLL TT AA AA ®BBBBBBBB sold 

LL IIIII1 SSSSSSSS 

LL eeeee. SSSSSSSS 
LL I] Ss 

LL II SS 
LL I] Ss 
LL I] Ss 
LL I] SSSSSS 
LL Il SSSSSS 

LL II Ss 

LL I] $$ 

LL I] ss 

LL I] Ss 

LLLLLLLLLL HII SSSSSSSS 

LLELLLLLLELL eeeee SSSSSSSS 
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| FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables ‘or NAMEL 1b-5¢ -Sep-1984 £ 99:93:08 AX-11 BLi pops Bh Page 1) 
4-Sep-1984 12:32: FORRTL.SRC FORNML TAB 5 es1 (1) 

; 1 6° 1 MODULE FORSSNML = {MOLES (ZTITL , FORSSNML Tastes - TPARSE stage gebles for NAMELIST input’ 
; ¢ $088 “fo ENT = ‘1-01 T File: FORNMLTAB.B32 Edit: SBL1012 
H 4 0004 1 BEGIN 
; 5 0005 1! 
5 $ Boe : eRe RRA AA RA EEA R AERA AERA AEE A AAT TATA THAT TATA ATTRA A HATA HH eee eee eee eee 
; '® | 
3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
: 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
; 19 BO1y : a ALL RIGHTS RESERVED * 
’ ’ * | 
: \ Bor § 1 !* THIS SOFTWARE IS FURNISHED nee A LICENSE AND MAY BE USED AND copied 2 
s 7 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH biccN NSE AND WITH THE * 
; 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ome * 
; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: i sd EA : ‘ TRANSFERRED. * 
es ‘® * | 
; 0019 1 !* THE aes IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ” 
3 21 post : Sa CORPORATION. * 
Py « :* t 
° 23 0023 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIAS. ‘TY OF ITS * 
: 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 0025 1 !* * 
; 0026 1 !* * 
: 27 0027 1 Seek eee eee eee ee A ER 
; @& 0028 1! 
.) a 0029 1 
; » 0030 1 !++ 
Se 0031 1 ! FACILITY: FORTRAN Language Support 
; mx ihe 1! 
. > ae 0035 1 ! ABSTRACT: 
; 0034 1! 
= 0035 1! This module contains the LIBSTPARSE state tables used in 
; = 0036 1! implementing FORTRAN NAMELIST input. It also contains the 
; $ oth ! action routines associated with the state tables. 
; 33 0059 | : ENVIRONMENT: User mode - AST reentrant | 
3 2 O06) ] ; AUTHOR: Steven B. Lionel, CREATION DATE: 10-July-1980 | 
; 643 0068 1 ! MODIFIED BY: 
: «644 044 1! 
s 65 045 1 ! 1-001 = Original. SBL 10-July-1980 
: 646 0046 1 ! 1-002 - Disallow superfluous commas. SBL 18-Nov-1980 
-- OF 0047 1 ! 1-005 - Reflect ssenes in group block spec so that number-of-variables is 
; | «648 0048 1! a word; second word is reserved. SBL 5~Dec-1980 
; 649 049 1 ! 1-004 = Don't require a delimiter before ending $ or &. These characters can 
s 30 050 1! no longer be a part of a logical fongtant SBL 17-Dec-1980 
; 3 0051 1 ! 1-005 - Allow repeated nulls of the form ‘'r* Don’t consider repeated values 
3 26 Boag = as candidates for being identifiers. “add comments. SBL 2-Mar-1981 
: 3 053 1 ! 1-006 = Add text describing the NAMELIST goscrteter bi b19 t. Disallow an array 
3; 2 Bae 1! substring without a sypser tot. SBL 1 erik =1 
; 3 055 1 ! 1-007 - Change to use new OTS$CVT T_F routine. SBL ScApril- 1981 
:+: = 0036 1 ! 1-008 - Also use OTSSCVT_T_F in STORE_COMPLEX. SBL 5-June-1981 
:: oF 0057 1 ! 1-009 - Use new ONE_OF macro where necessary. SBL 18-Dec-1981 
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1-012 - Roa inquiry feature. SBL 24-May-1 
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0-7 
-Sep-1984 PORRTLS SRCJFORNMLTAB. 4 2;1 
eee Start post-V3.0 snd minor bug nee 
1-010 = Enhancements ANG arner ,o49 fixes: SBL 17-Dec-1982 
1. Allow 0! an end-of- Line comment. It is allowed 
wherever end-of- hae is allowed, except in character values, 
and is equ alens to end-of-Line. 
: Disallow si oned nteger as syntactically correct for 
repeat coun 
5. japrove error reporting by chaining FORS_INVTEXREC for 
a re pete errors. 


*WRcSy TMA file. 
1-011 - tern’ off MAG in STORE VALUE so 


E maseayent complex values 
t stored correctly. (Same as Bug t-00 5A) SPR 


11=nnnnn SBL 7-Mar-1983 
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FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 16-Sep-1984 00: 33:0 VAX=11 SS: V4.0-74 Page 3) 
1-012 Declarations 14-Sep-1984 12:32:1 CFORRTL.SRCJFORNMLTAB.B32;1 (2) 
s 76 73. 1 SSBTTL ‘Declarations’ 
ee. Sore 1} 
fae . Bat? 1 ! PROLOGUE FILE: 
are 378 1! 
i gs it 1 
3 94 th : REQUIRE "RTLIN:FORPROLOG'; ! FORTRAN-specific declarations ; 
; 6 (CoB 0145 1! 
: 8 Bi48 1 ! LINKAGES: 
; & 0147 1! 
>; «84 0148 1 
3; 6 «68 0149 1 LINKAGE 
; & 0150 1 JSB_COMPARE_UPCASE = JSB (REGISTER=4, me tte ; 
3 87 0151 1 NOPRESERVE (0,1,2,53,4) NOTUSED (6,7,8,9,10,11); 
; 3 bias 1 | 
; 0155 1! 
; 90 0154 1 ! TABLE OF CONTENTS: 
; (91 0155 1! 
; 0156 1 
; 0157 1 FORWARD ROUTINE 
; 494 0158 1 NEXT _RECORD ' Read another record 
: 95 0159 1 LOOKOP IDENTIFIER, i Lookup identifier 
; & 0160 1 SUBSTRING_COLON, ! Process colon in substring 
; OWT 0161 1 INIT SUBS ! Start a subscript/substring 
: £8 O16¢ 1 STORE SUBS ' Store a subscript/substring 
: 99 0163 1 END_SOBSCRIPT, i End a subscript 
: 100 0164 1 END SUBSTRI ! End a substring 
: 101 0165 1 CONVERT_INTEGER, i Convert a decimal integer 
: 102 0166 1 STORE_LOGICAL, ' Store a logical into CONSBLOCK | 
3 .103 0167 1 STORE_REAL, ! Store a real value into CONSBLOCK | 
: 104 0168 1 STORE COMPLEX, ! Store a complex value into CONSBLOCK 
: 105 0169 1 STORE _REPEAT, ' Store repeat count 
; 106 0170 1 PEAT, ! End a repeated value — 
: 307 0171 1 STORE CHARACTER, ' Store a character string character 
: 108 o176 1 END_CRARACTER, ! End a character string 
; 109 0175 1 G_OK, ! Is a string value ok? 
3: 110 0174 1 STORE VALUE, ' Store a value 
; 9 0175 1 NULL_JALU ! Skip an element : aE: 
3; Vi 0176 1 SET_VALUE_IDENT, : Indicate last value was an identifier. 
s 143 0177 #1 WAS VALUE IDENT, ! Lookup Last value token as an identifier 
3; 114 0178 1 SYNTAX _ER ! Signal a syntax error 
3 115 0179 1 INVREF VAR_ERROR, ! Signal invalid ref to variable error 
; 116 0180 1 NPCONERR ERROR, ! Signal input conversion error | 
3; 117 p13) 1 BLANKS_OFF, ! Turn explicit blanks off 
: 118 136 1 BLANKS ON, ! Turn explicit blanks on 
3 119 0183 1 COMPUTE_ INDEX ! Compute the subscript index 
: 120 0184 1 COMPARE-UPCASE: JSB_COMPARE_UPCASE, |! Compare strings upcased 
s Ye 0185 1 DUMP _NARE S ! Respond to '?" inquiry 
3 \$¢ B186 1 DUMP~VALUES; ! Respond to ‘=? inquiry 
; Is 0187 1 
> 124 0188 +1! 
; 125 0189 1 ! REQUIRE FILES: 
: 126 0190 1! 
3 16 Hd 1 : 
s 128 136 1 LIBRARY ‘RTLTPAMAC'; ! TPARSE Library of macros 
s +4 0193 1 
s 130 0194 1! 
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1-012 :32:1 $ CIFORNMLTAB.B 231 


Declarations 14-Sep-1984 FORRTL.SR 
s Ja) 0195 1 ! EQUATED SYMBOLS: 
5 3 ¢ 138 1! 
: 3 197 1 
; 134 198 1 LITERAL ran 
: 139 0199 1 SINGLE_QUOTE = 39, ! ASCII value for ‘'"’ 
ee 0200 1 NULL = 0, ! Constant type for null value 
3 \3 0201 1 K_LOGICAL = 1, ' Constant type for logical 
; 138 0 8 1 K_INTEGER_= 2, ' Constant type for integer 
; #139 0205 1 K_REAL = 3, ! Constant type for real 
: 140 0204 1 K_COMPLEX = 4, ! Constant type for complex 
: «(141 0205 «1 K_CHARACTER = 5; ! Constant type for character 
: 106 8 06 1 
; (14 O07 1! 
; 1446 0208 1 ! FIELDS: 
3 145 0209 1! 
; 146 0210 1! NONE 
: 167 0211 1! 
; 148 0 \¢ 1 ! OWN STORAGE: 
; 149 8s 17 
; 199 0214 1! NONE 
$s 13) 0215 1! 
: 136 0216 1 ! BUILTIN DECLARATIONS: 
) 0217 1! 
3 154 0218 1 BUILTIN 
3; 155 0219 1 CALLG, 
; 156 $334 1 INDEX; 
: 7 0221 1 
s 138 oss¢ 1! 
: 4159 0225 1 ! EXTERNAL REFERENCES: 
; 160 0224 1! 
3 16) 0225 1 
§ 166 0226 1 EXTERNAL ROUTINE 7 ’ 
; 0227 1 FORSSCVT_TYPE ! Convert a walue to destination type 
: 164 0228 1 FOR$$D0_RML_OUTPUT CALL_CCB, ! Do Namelist output 
; 165 O¢¢? 1 FORSSRET_RS RECO, ' Read a record 
; 166 0230 1 FORSSREC_WSNO B RECO, ! Start a write 
: 167 bee 1 FORSSSIGNAL: LUE, ! Signal continuable error 
: 168 Y) 3 1 FORSSSIGNAL_STO: NOVALUE, ' Signal fatal error 
: 169 02335 1 oTsscvT_TI_C, ' Convert decimal to longword 
3s 170 0234 1 OTSSCVT_TL_L, ! Convert logical to longword 
: 71 0235 1 OTSSCVT_T_F, ! Convert text to F_floating 
3s 172 0236 1 OTSS$CVT_T_D, ' Convert text to D_floating 
s 73 ar oe OTSSCVT_T_G, ! Convert text to G_floating 
3; 174 Hs 1 OTSSCVT_T_H ! Convert text to H_floating 
: 175 7. 3 LIB$SSIG-TO_RET; ! Convert signal to return value 
; 176 0240 1 
3 eye 0241 1 !<BLF/PAGE> 
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1-012 Declarations 14-Sep-1984 12:32: FORRTL.SRCJFORNMLTAB.B32;1 
; 179 tg 1 S44 
$ 190 tz ! Each NAMELIST descriptor block has the following form: 
.% 465 1! 33 222 171771311111 
3 188 0 rk : 10 § § : 6 : 4 5 : ; ; 98765432109876543210 
° 13? 6 rh : 0 ob ee eeeceea address of ASCIC name of NAMELIST g (oS ee oe ee Sh ee em + 
H ' ress 0 name o rou ' 
; 187 0 50 1 ' teow em won ww Seco ece Seer ree coe es sSeeeceeaceoen p Bnei a tlh shen. & eeeeeeooee on2+ 
: 188 0251 1! 1 Reserved | Count of NAMELIST variables : 
3 189 0 26 1 ' $eree sewn rn sce nen owe nrcanaeacan So SHEA ene mere eu eceamoeane nn an he 
3 139 0 27 : } 2: Address of ASCIC name of variable 1 H 
3 136 ee 5 Address of standard VAX descriptor for variable 1 } 
3 19 0 2$ 1 ' toe seeceece eeeeeceooeoe eseeeeeocesee wow er etree enone mere emo ww rane memos + 
> 194 0257 1! S 1 bes H 
3 195 0 58 1 : ¢ ewer eonmereee ee cence ee een en Seca nasa sew oe cee warn eawr roam wee e nn cea nae + 
; 4196 0259 1: 5 3 Address of ASCIC name of variable n ae 
F 197 0260 1 ' pow eee meee ence one ne see mec ee wee eww ese coe ewe eoes eer ewer ene eee eee ece + 
; 198 0261 1! 6 | Address of standard VAX descriptor for variable n H 
3 199 pce¢ 1 i ¢eerer ron ema nmr nweceroeoe owe eee ee ee BeBe eB em Been omeweE news mE mc mere erenanm > 
; 200 0265 1! 
: 201 0264 1! 
3 4 0265 1! The NAMELIST group name and the variable names which are pointed to in 
:; 2 0266 1! #4xthe NAMELIST Coser seier block are upper case only. The FORTRAN 
: 204 0267 1! compiler or other calling prostes is responsible for case conversion 
; 205 0268 1! of the name strings. In _NAMELIST input data, case is significant only 
; 206 0269 1! in character literals. The run-time Library is responsible for case 
3 ith Bs20 | conversion of NAMELIST input data. 
: 209 pei ¢ 1! The allowable data tere in variable descriptors are BU (BYTE), WU, 
> 210 0275 1! LU, WwW, L, F, D, G, H, T, FC, DC, and GC. The allowable descriptor 
; 211 0274 1! classes are scalar and array. for the array class descriptor, the 
3; 6@le 0275 1! descriptor wage COLUMN, COEFF, and BOUNDS must be set, indicating 
s ale 0276 1! column-major order and the presence of coefficient and bounds blocks. 
3 514 0277 1! The number of dimensions must not exceed 7. 
s 213 0278 1 !-- . 
: 296 0279 1 
; aw 0280 1 !<BLF/PAGE> 
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SNML_TABLES = TPARSE tables for NAMELIST in 14-Sep-1984 FORRTL.SRCJFORNMLTAB.B52; 1 
1 ZSBTTL *FORSSNML_TABLES = TPARSE tables for NAMELIST input’ 


'e4¢ 


FUNCTIONAL DESCRIPTION: 


i The following are the state tables used to perform FORTRAN 
NAMELIST input. 


leo 
SINIT_STATE (FORSSA_NMLSTATE, FORSSA_NMLKEYWD); 

+ 

! Main peanning loop. Look for assignments. 

lf a $ or & is found, terminate the statement. 
$STATE (BEGIN 
D_OF 

» IPA 

SIGNMENT), BEGIN SCAN 

$_LAMBDA, ERROR_STATES 


SCAN, 
CINE) BEGIN_SCAN, NEXT_RECORD), 
EXIT) 


vuvUvUU 


BLANKS_OFF), 


+ 

: This state matches the equivalent of an end-of-line; either the 

! actual end-of-line or a comment beginning with ‘'!"', but it does 

! mot consume the "'!"'. 

SSTATE (END_OF_LINE, 
(TPAS_EOS, TPA$_EXIT 
((NO_TOMMENT), TPAS 
(TPAS_LAMBDA, TPAS_E 


IL), 
T) 


vuvUv 


), 
FA 
XI 


+ 
: An assignment consists of a variable, an equals sign, and a List of values. 


SSTATE (ASSIGNMENT 
((VARIABLE), ASSN_EQL ,BLANKS_OFF), 
("?", FLUSH_RECORB, DUMP_NAMES), ' Dump names 
((EQUALS QUESTION), FLUSA_RECORD, DUMP_VALUES), ! Dump values and retry 
(TPA$S_LAMBDA, ERROR_STATES 


POPIPIPINNDPNINININININININININININININIPONPIPoPononononononononononaponofonefeonornony 
DP DPDR_EXR_EDQRED Pry rr £ BS BB EE AWN IIpononononopononon 
MEW $0 ODN VE WN $0 ODNAUNE WN HO ODBNAOUE WN "OD ONAUSWN—OW; 


ee ce ce ee ce ee ce ce me ce cee ce cee ee me me ee ce me ee ee ee ce ce ce ce ee ce ce ce ee ee ee ee ee ee ee ee ee eed eed 


2 P SSTATE (FLUSH_RECORD, 
3 P (TPA$S_EOS; TPA$ EXIT), 
366 P (TPAS-ANY, FLUSA_RECORD) 
268 ’ 
269 P S$STATE (ASSN_EQL 
270 P ((END_OF LINE), ASSN_EQL, NEXT_RECORD), 
371 P (ts! UE_LIST) 
re P (TPAS_LAMBDA, ERROR_STATE) 
74 : 
ore ane 
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1-012 FORSSNML_TABLES = TPARSE tables for NAMELIST in 14-Sep-1984 :52: FORRTL.SRC JFORNMLTAB.B52;1 (4) “ 
; 276 0 3 1 ! A value List consists of simple values and repeated values, possibly separated 
3; ar 0339 1 ! by commas. A comma instead of a value indicates an omitted value, where that 
; ie rk ! } element of the variable should remain unchanged. 
; 280 P 0 rh: 1 SSTATE (VALUE_LIST, 
; 281 P0345 1 (CEND_OF CINE), VALUE LIST, NEXT_RECORD), 
: ¢8e P0344 1 ".*, VACUE LIST, NULC VALUE) 
; 28 P0345 1 ((REPEATED QALUES, VALOE_LIST{, BLANKS_ON), 
> 284 P 0346 1 ((VALUE), VALUE _LIST1, BCANKS_ON), 
; 285 P 0347 1 (TPAS_LAMBDA, TPAS_EX{T) 
; 286 0348 1 a3 
: see 0349 1 
; 288 0350 1 !+ oe 
; 289 0351 1 ! A value has been found. The next delimiter tells us if that token was really 
; Soy $328 ! } a value or was an identifier that looked Like a value. 
; 92 P 0354 1 SSTATE (VALUE_LIST1, 
; 293 P 0355 1 (CEND_OF CINE), VALUE_LIST2, BLANKS OFF), 
; 294 P 0356 1 (TPAS BLANK, VALUE LIST2, BLANKS OFF) i 
> 295 P0357 1 ((NO_CPARENS, VALUE LIST2, BLANKS OFFS, ! Succeeds if ‘('' NOT found 
; 34] P 3328 ! (TPAS_LAMBDA, TPAS_EXIT, SET_VALUE_IDENT) ! Last token was an identifier 
; 298 0360 1 
; 299 0361 1 !+ : ye 
: 300 Bes 1! At this point, the last token was an identifier only if the next significant 
; wl 0365 1! character is an "'="", The other case, a ‘('’, was taken care of in the 
; 302 0364 1 ! previous state. 
; 303 0365 1 !- 
; 304 P 0366 1 $STATE (VALUE_LIST2, 
> 305 P 0367 1 ((END_OF CINE), VALUE_LIST2, NEXT_RECORD), ee 
5 Oe P 0368 1 (TPAS_BLANK, VALUE_LIST2), ! Even though explicit blank 
; 307 P 0369 1 H processing is off, use up. 
; 308 P 0370 1 ! blanks in the record to aid 
; 309 P 0371 1 ! error reporting. 
; 310 P 0372 1 (*,", VALUE_LIST, STORE VALUE), 
3; St P 0373 1 ((NO_ EQUALS), VALUE LIST, STORE VALUE), ' Succeeds if ‘'="" NOT found 
; a6 P bare ! CTPAS_LARBDA, TPAS_EXIT, SET_VACUE_IDENT) ! Last token was an identifier 
: H 
; 314 0376 1 
36 6315 0377 1 !+ ae : 
: 316 0378 1 ! This type of state determines if the next character is ‘('', without consuming 
y oe 0379 1! the character. In this case, failure indicates that the desired character 
: 418 8380 : was found. This scheme is used in the next, and in other states. 
; 336 P Bas 1 SSTATE (NO_LPAREN 
; 321 P 0383 1 (*(") TPAS FAIL), 
; 322 P 0384 1 (TPA$_LAMBBA, TPAS_EXIT) 
; $57 0385 1 ); 
i 324 0386 1 
3; 32s P 0387 1 $STATE (NO_EQUALS, 
: 326 P 0388 1 ((NO_EQGUALS QUESTION), NO_EQUALS2), 
3 Se? P 0389 1 (TPAS_LAMBDA, TPAS_EXiT) 
i; 328 0390 1 bs 
3 $3 B33) 1 
: 0 P 338 1 SSTATE (NO_EQUALS2, 
3 31 P 0393 1 ('=", TPA$_FAIL) 
: 332 P 0394 1 (TPAS_LAMBDA, TPAS_EXIT) 
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012 FORSSNML_TABLES = TPARSE tables for NAMELIST in 14-Sep-1984 12:32:1 PORRTLeS ati ORNMLTAB.B32;1 
3 0395 1 ); 
; 4 0 a9 1 
5 P 0397 1 SSTATE (NO etd: QUESTION 
336 P0398 1 ((EQUACS QUESTION), TPAS _FAIL), 
337 P 0399 1 (TPAS_LAMBDA, TPAS_E 
338 0400 1 ); 
%76 0401 1 
40 bcos 1 t+ 
341 040 1 ! Look for ‘=?' 
208 0404 1 !- 
34 P 0405 1 SSTATE (EQUALS QUESTION, 
344 P 0406 1 (*=", , BLANKS_ON) ! Does it start with '='? 
345 0407 1 : 
346 0408 1 
347 P 0409 1 S$STATE (, 
348 P 0410 1 ('?", TPAS_EXIT, BLANKS_OFF), ! "=?" found 
349 P0411 1 (TPA$_LAMBDA, TPAS_FAIL> BLANKS_OFF) 
350 Beis 4 dg 
351 041 1 
352 P 0414 1 SSTATE (NO_COMMENT, 
353 P 0415 1 ("!*) Tpa$ F AIL), 
354 P0416 1 (TPAS _LAMBBA. TPAS_EXIT) 
355 0417 1 : 
356 0418 1 
357 0419 1 !4 
358 0420 Tia repeated value is of the form ntvalue, where n is an unsigned integer and 
359 0421 1! no delimiters appear on either side of the ‘'*’. A repeated null is of the 
360 0422 1 | form ''n*’' where a delimiter follows the ''t’ 
361 0423 1 !- 
362 0424 1 
363 P 0425 1 SSTATE (REPEATED _VALUE, 
364 P 0426 1 (TPAS DECIMAL, REPEAT2, BLANKS_ON) ! Value stored in TPASL_NUMBER 
365 0427 1 3 
366 0428 #1 
367 P 0429 1 vacate (REPEAT2 
368 P0430 1 REPEAT3, STORE_REPEAT), 
369 P0431 1 (Tpag _LAMBDA, TPA$_FAIL, BLANKS_OFF) 
370 0432 1 ; 
371 043 1 
37 P 0434 1 $STATE 5 ya 
37 P0435 1 ((VALUE), TPAS_EXIT, END_REPEAT), nee 
74 P 0436 1 C(NOT™ UbECIM) ERROR. STATE), nt : 
Le Pp ot f4 : _ AS” _ LAMBDA, TPAS EX IT, BLANKS _oFF) "9 rane, skipping will be done by STORE_VALUE 
77 439 1 
78 0440 1 !+ 
79 0441 1 !' A value can be one of four types. Integers Look Like reals, for our purposes. 
$80 Ree ! t This state can fail if the current string isn't matched by any of these patterns. 
35 P 0444 1 $STATE (VALUE 
8 P0445 1 ((LOG GICAL TPAS Pe! STORE zLQGICAL). 
84 P0446 1 (CREA) IPAS. SfoR EAL), 
85 P0447 1 ( (COMPLEX) tft KI Stor are done for each part 
86 P 0448 1 ((CHARACTER), TPAS “Exif, END: CHARACTER) 
8 0449 1 ); 
88 0450 1 
389 0451 «1 
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14 
' A variable consists of an identifier 
! followed by an optional substring. if, 


for NAMELI 


D a 
te tables for NA AREL 16S 
les ST in 12288 


719b¢ 93:33:4 PORRTL SREIFORNML TAB B92: 1 


ag hey by an optional subscript, 
le parsing values for the previous 


i assignment, it was determined that the last “value” was really an identifier, 
i WAS VALUE {DENT will retrieve the token from NML$T_TOKEN and call LOOKUP. IDENTIFIER 
i itself. Otherwise, we look for an identifier here. 


SSTATE (VARIABLE, 
(TPAS_LAMBDA, VARIABLE2, WAS_VALUE_IDENT), 


S peniecl tee VARIABLE2, LOOKUP_IDENTIFIER), 


SSTATE (VARIABLE2, 
(TPAS_LAMBDA, , BLANKS_ON) 


'+ 
x Look for subscript or substring. 
SSTATE | og yet START, 


B LOOP1, INiT_SUBS), 
y tread TARBDAS TPAS$_EXTT) 


'+ 


! Fails if Last token was not 
! an identifier. If it succeeds, 
! lookup is done. 


! Signals error if subscript/substring not ok 


i Get by SB ni or first substring. We can't tell which is which until 


‘ we see t 


$STATE (SUB LOOP1 
(END_OF_LINES, SUB LOOP! NEXT_RECORD), 
io AS~BL ahik 


SUB_LO 
ECTRAL INTEGER), Stor 
, RIGAT_SUBSTRING, SUBSTRING, COLON), 


TPAS_LAMBDA, INVREFVAR_STATE) 


'¢ 


! Succeeds of erring ok 
! otherwise signals FORS_INVREFVAR 
! Signal FORS_INVREFVAR 


i This state and the next one consist of the loop looking for subscripts. 
t if a colon is found, control transfers to the substring processor. 


$STATE (SUB LooP2 
(END _ LINE} « SUB_LOOP2, NEXT_RECORD), 
yom: OF ake _LOOP2), 


SUB_L oP 
¥, RIGAT OO BS TRING, SUBSTRING_COLON) , 


* START_SUBSTRING, END_SUBSCRIPT), 
bag _LAMBDA, ERROR_STATE)~ 


S$STATE (SUB_LOO 
END D_OF oon. SUB LOOPS, NEXT_RECORD), 


( 
( 
( 
( 
( 
( 
); 
{ 
(TPAS_BLANK, SUB _ Loo 


") 
TP 
E 
(E 
TP 


! Succeeds vy ener ok 
! otherwise signals FORS_INVREFVAR 
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PORRTL’S Rei FORNMLTAB.B52;1 


TPARSE state tables for ae 15-42 -Sep-1984 2 33: 33:0 
TABLES = TPARSE tables for NAMELIST in 14-Sep-1984 2:1 
((DECIMAL_INTEGER), SUB_LOOP2, STORE_SUBS), 
CTPAS_ LAMBDA, INVREFVAR“STATES ! Signal FORS_INVREFVAR 


14 
i This state is reached if we have already processed a subscript. 
te only a substring is allowed. 


SSTATE (START SUBSTRING, 
(TPAS_LAMBDA; TPAS_EXIT) 


SSTATE (LEFT SUBSTRING 
(( Lert SUBSTRING, NEXT_RECORD), 
(TPA$S "BLANK, LEFT SUBST 


RING) 
A fOECIRAL | INTEGER, 


SUBSTRING2, STORE SUBS), 
TRING, SUBSTRING COLON), 
TPAS Hs UORVRET CAR “STATE) 


(SUBSTRING2, 

ND_OF_LINE), SUBSTRINGZ, NEXT_RECORD), 
AS ~BLANK. SUBSTRIN 

>") “RIGHT. SUBSTRING SUBSTRING. COLON), 
PA$_LAMBDA, ERROR_STATE 


$STA s. 
“0 RIGHT SUBSTRING, NEXT_RECORD), 
S"BLANK, RIGHT SUBSTRING 
DECTRAL INTEGER); SUBSTRINGS, STORE_SUBS), 
)') TPAS_EXIT, END SUBSTRING), 
TPA § LAMBDA. INVREF VAR_STATE) 


Se ee tee Bt ed i 


“gSUBSTRINGS. NEXT_RECORD), 
$ -BLANK SUBSTRING3), 

$ EXIT, END SUBSTRING), 

TPAS LAMBDA ERROR_STATE) 


Sede ee ee tae te, dee te tee te ed ee 
a 
ow~ um 


| AIT fs 


'¢ 


‘ An identifier is a letter followed by 0 or more letters, digits, ‘'$'’ or 


SSTATE CIDENTIFIER, 
PAS_ALPHA, , “BLANKS _ON) 


SSTAT 


AUP AS. SYMBOL, TPAS_EXIT, BLANKS_OFF), 


sSPAS APO, TPAS_EXIT, BLANKS_OFF), 


At this point, 


! Signal FORS_INVREFVAR 


! Signal FORS_INVREFVAR 


Matches any string whose characters 
fgnsist § of, potters, digits, 
an 


82:1 


AX=-11 ag Se V4.0=74 
FORRTL.SRCJFORNMLTAB. 
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15 
NML_TABLES = TPARSE state tables for NAMEL 18-Sep-19 4 90: 33:08 AX-11 Oi rete ae v4.0- 
L.TABLES = TPARSE tables for NAMELIST in 14-Sep-1984 12:32: FORRTL.SRCJFORNMLTAB 
((NOT_DELIM), TPAS_FAIL), ! but don't consume the character. 
(TPAS_LAMBDA, TPAS_EXIT) 
SSTATE (NOT _DELIM ! Fails if next character is a delimiter 
ND_OF_LINES, TPAS_FAIL), 
(TPAS"BLANK, TPAS_FATL), 
» TPAS_FAIL), 
(*$") TPAS"FAIL), 
("®", TPAS"FAIL), 
(")*, TPAS FAIL), ! Can show in complex values 
(TPASL BA, TPAS_EXIT) 


1+ 
! Pattern for a pop*cet value. It is complex because any string can follow 
, after the initial T, F, .T or .F up to the next ‘delimiter’. 


$STATE (LOGICAL, 
(*,") , BLANKS_ON), 
(TPAS_LAMBDA, > BLANKS_ON) 


1+ 
Consume characters up to but not including the next delimiter. 


$STATE (LOGICAL1, 
((LOGICAL2), LOGICAL1) 
(TPAS_LAMBDA, TPAS_EXIT, BLANKS_OFF) 


+ 
: Indicates by failing if any of the selected characters are found. 


$STATE (LOGICAL2 
((END_OF LINE), TPAS FAIL), 


(TPASBLANK, TPAS_FATL), 
(*,","TPAS_FAIL), 
(*(*) TPAS-FAIL). 

"="’ TPAS-FAIL). 
("$*: TPAS“FAIL). 
("8*: TPAS"FAIL) 
(TPAS_ANY, ~TPA$_EXIT) 


+ 
: Parse and store the representation of a complex value. This is safe because 
' a complex value can not possibly be an identifier. 
SSTATE (COMPLEX 
CTC", COMPLEX2) 


eo 


H 15 
Cae e LES FORSSNML_TABLES = TPARSE state tables for NAMEL Jo~3e0n 1386 90:33:08 VAX-11 gps V4.0-74 
1-01 FORSSNML_TABLES = TPARSE tables for NAMELIST in 14-Sep-1984 12:32: CFORRTL.SRCJFORNMLTAB.B32;1 
; 618 680 1 ); 
; 619 681 1 
; 620 P 06 ¢ 1 SSTATE (COMPLEX2 
> 621 P 0683 1 ((END_OF LINE) COMPLEX2, NEXT_RECORD) , 
: 60¢ P 068% (TPASBLANK, COMPLEX2) 
; 6 P0685 1 ((REAC), COMPLEX3, STORE COMPLEX), ! Store real part 
; 624 P 0686 1 (TPAS_LAMBDA, ERROR_STATE) 
; 625 0687 1 ); 
; 626 0688 1 
H os? P 0689 4 SSTATE (COMPLEX3 
> 628 P 0690 1 (CEND_OF LINE) COMPLEXS, NEXT_RECORD), 
; 6¢9 P0691 1 (TPAS-BLANK, COMPLEX3), 
; 630 P 0692 1 (",", COMPLEX 
; 631 P0693 1 (TPAS_LAMBDA, ERROR_STATE) 
3 O36 0694 1 ); 
; ty 0695 1 
; 634 P 0696 1 SSTATE (COMPLEX4 
: 635 P 0697 1 (CEND_OF LINE), COMPLEX4, NEXT_RECORD), 
; 636 P 0698 1 (TPAS“BLANK, COMPLEX4), 
: 637 P 0699 1 ((REAC), COMPLEXS, STORE COMPLEX), ! Store imaginary part 
; 638 P0700 1 (TPAS_LAMBDA, ERROR_STATE) 
; 639 0701 1 vs 
; 640 thir 1 
> 641 P 0703 1 SSTATE (COMPLEXS 
> 642 P0704 1 (CEND_OF LINE), COMPLEXS, NEXT_RECORD), 
3; 643 P0705 1 (TPAS_BLANK, COMPLEX5), 
> 644 P 0706 1 (*)", TPAS_EXIT), 
> 645 P0707 1 (TPAS_LAMBBA, ERROR_STATE) 
; 646 4 1 ds 
; 647 709 «#1 
; 648 0710 1 i+ 
; 649 0711 1 ! Pattern for a character string. Inside the string, two consecutive quotes 
: 650 fat} 1 ! are counted as one. This value is stored in the user variable as it goes, 
3 $33 tar : ! since this can not possibly be an identifier. 
; 653 P 0715 1 S$STATE (CHARACTER, 
; 654 P0716 1 (SINGLE_QUOTE, CHARACTER1, STRING_OK) ! Signals error if not yi CHARACTER 
3s 635 0717 1 Ds ! Also turns on TPA$V_BLANKS 
; 656 0718 1 
; 657 P 0719 1 SSTATE (CHARACTER1, 
; 658 P0720 1 (TPAS_EOS, CHARACTER1, NEXT_RECORD), ! Don't use END_OF_LINE because 
; 659 P0721 1 (SINGCE QUOTE, NEXT QUOTE), ! at" is a valid character. 
; 660 P 8756 1 (TPAS_ARY, CHARACTER1, STORE_CHARACTER) 
: 661 87s 1 : 
: 662 724 «1 
; 6635 P 8782 1 SSTATE (NEXT_QUOTE 
> 664 P0726 1 (TPAS_EOS, NEXT_QUOTE, NEXT_RECORD) ! Don't use END_OF_LINE. 
3 665 P O79? 1 (SINGCE QUOTE, CHARACTER], STORE_CHARACTER), 
: 666 P0728 1 (TPAS_LAMBDA, TPAS_EXIT) 
3; 667 34 9 1 3 
; 668 730 1 
; 669 0731 1 !+ ; 
: 670 07 ¢ 1! This state is transferred to if a syntax error is detected in the parsing. It 
; 671 bre 1 ! calls SYNTAX_ERROR with a token which is at or near where the error was. 
3 676 Bree : , SYNTAX_ERROR Signals FORS_SYNERRNAM. 
: 674 P 0736 1 $STATE (ERROR_STATE, 


FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL L 1bege Sep-1984 Ax-11 Bliss-32 v4. 
Bi FORSSNMCTABLES = TPARSE Sables for NAMCL ISS 3077 198s 99:85:98 = Maat Ob des Bea eee e$2.1 

: 675 P 0737 1 (TPAS_ANY, TPAS_FAIL, SYNTAX_ERROR) 

i 626 P 07 8 1 (TPAS LAMBDA, TPAS_FAIL, SYNTAX_ERROR) 

s 67 7 1 ); 

: 678 740 1 

; 679 158 1 

; 680 rg 1 this state is transferred to when there is some invalid reference on a 

; 681 0743 1 ! variable, i.e. gr tte ben, a scalar, substrin ing a non=character or using 

; 682 0744 1 | non=integers in subscripts substrings. It calls INVREFVAR_ERROR which 

; 683 0745 1! signals FORS_INVREF VAR, 

; «6846 0746 1 i- 

; 685 P 0747 #1 SSTATE CINVREFVAR_STATE 

: 686 P0748 1 (TPAS_LAMBDA, TPAS_FAIL, INVREFVAR_ERROR) 

: 687 0749 1 ); 

; 688 0750 1 !<BLF/PAGE> 


FORSSNML_TABLES FORSSNML_TABLES - TPARSE state tables for NAMEL 1b-50 -Sep-1984 t 99: 3] 08 AX-11 Bliss-32 V4.0-7 Page 1 
1-012 NEXT_RECORD = Get next record 14-Sep-1984 2: PORRTL SRCJFORNMLTAS. 3 2:1 (5) | 


: 751 1 ZSBITL "NEXT_RECORD = Get next record’ 

; 691 7 ¢ 1 ROUTINE NEXT-RECORD = 

; FF 7 1 

; 69 754 1 S44 

3 $38 f 5 ! FUNCTIONAL DESCRIPTION: 

; 69 7 5 1 Reads a new ceeene from the current unit and updates the STRING pointers 

: 69 7 $ 1 i in PARAM_BLOCK 

: 698 7 1 i 

; 699 0760 1 ! CALLING SEQUENCE: 

: 700 0761 1: 
; 701 p76¢ 1/ status = NEXT_RECORD () 

; 765 13 

; 7 0764 1 | FORMAL PARAMETERS: 
: 7046 0765 1! 

; 705 0766 1! NONE 
; 706 0767 1: 
; 707 0768 1 | IMPLICIT INPUTS: 
; 708 0769 1! 

; 709 0770 1! AP Points to PARAM_BLOCK 

; 710 0771 1! 

s 7ii 1464 1 ' IMPLICIT OUTPUTS: 

3 at; 0773 1: 

ey 0774 1 PARAM_BLOCK CTPASL_STRINGPTR] is address of now record 

: oe 148) } | PARAM_BLOCK CTPASL_STRINGCNT] is record Length 

; 716 0777 1 ! COMPLETION STATUS: 
: 717 0778 1: 
; 718 0779 1! 1 for success; all errors are signalled. 
: 719 0780 1! 
; 720 0781 1 ! SIDE EFFECTS: 

ee ry or 1 

3 «Ue 0783 1! 
3 6fe3 0784 1! 

3: 726 0785 1 i- 

3 ve 0786 1 

: 726 0787 2 BEGIN 

: 727 0788 

; 728 0789 BUILTIN : : 
: 729 0790 AP; ! Argument pointer points to parameter block 
; 730 0791 2 
3; «731 0735 § P 

3 Pee 4s, AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 

3; 7 0795 GLOBAL REGISTER 

3 735 0796 CCB = 11: REF $FORSCCB_DECL; 

; 736 0797 

s for 0798 CCB = .AP CNMLS$A_CCB); ! Fetch CCB address 

; 738 0799 DO 

; 739 0800 BEGIN 

; 740 0801 FORSSREC_RSNO OF ! Read the next record — 

3 741 080 CcB CLUGSA BUF _P .CCB CLUBSA_BUF Pini ‘ 1; ! Start with second byte 

; ree 080 AP CTPA oA ur AnD = .CCB CLUBSA_BUF 

2 rer bape AP TPASL STRINGCNT] = .CCB CLUBSA~ BUF ~END] - .CCB CLUBSA_BUF _PTR]; 

: 745 080 UNTIL -AP CTPASL_STRINGCNT] GTR 0; 

3; 746 080 RETURN 1; 


ORS 

“012 NEXT 
747 0808 
748 0809 


j 


END; 


99F8 
0000+ 
00000000* 
0000+ 
1024 
FFFF 
1026 
FFFF 
99F8 
0000+ 
00000000Vv 
0000+ 
15F6 
0000* 


11F7 
FFFF 
19F8 
0000* 
FFFE 
15F6 
FFFF 


14-Sep-19 


K 1 
SNML_TABLES FORSSNML_TABLES = TPARSE state tab f AM -Sep- 
T_RECORD = Get next record ee ee sep 1382 99: : 


4 


— 


2: 


98 tants sae sronnm tea. 69251 


-TITLE FORSSNML_TABLES FORSSNML_TABLES = TPARSE state 
tables for NAMEL 
-IDENT \1-0172\ 
-PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 
00000 cane 1 om 
00000 OEGIN_SCAS: | 5 
00000 ; TPASTYPE 
U.2: «WORD -26120 ; 
00002 ; TPASSUBEXP 
U.4: .WO <<U.3-U.4>=2> : 
00004 ; TPASACTION | 
U.5: LONG  <<NEXT_RECORD-U.5>=4> : | 
7 jG STARGE! BEGIN_SCAN-U.6>=2 | 
s << N-U.6>=-2> s | 
OOOOA ; TPASTYPE ~ 
U.7: .WO 4132 ; 
O000C ; TPASTARGET 
U.8: 0 -1 : 
OOOOE ; TPASTYPE 
U.9: ~WOR 4134 : 
00010 ; TPASTARGET 
U.10: .WOR -1 : 
00012 ; TPASTYPE 
U.11: -WORD -26120 : 
00014 ; TPASSUBEXP | 
U.13: WORD <<U.12-U.13>=2> 3 
00016 ; TPASACTION 
0.14: | .LONG  <<BLANKS_OFF-U.14>=4> : | 
QOO1A ; TPASTARGET 
U.15: —.WOR <<BEGIN_SCAN-U.15>-2> : 
0001C ; TPASTYPE 
U.16: WORD 5622 ; | 
QOO1E ; TPASTARGET 
00020 ;END_OF_LINE 
U3: BLK 0 
00020 ; TPASTYPE 
U. 19: WORD 4599 : 
00022 ; TPASTARGET 
U.20: .WORD -1 ; | 
00024 ; TPASTYPE 
U.21: WORD 6648 : 
Meee tes ute RD <ell.22-U.23>"2 
« : . < e "Ue. >- > s 
00028 ; TPASTARGET 
U.24: -WORD -2 ; 
0002A ; TPASTYPE 
U. 25: WORD 5622 ‘ 
0002C ; TPASTARGET 


15 
FORSSNML TABLES eet ner TABLES = TPARSE —— tables for NAMEL 18- Sep-1 


RECORD = Get next recor 


99F8 
0000+ 
00000000v 
0000+ 
903F 
00000000Vv 
0000+ 
99F8 
0000+ 
00000000Vv 
0000* 
15F6 
0000* 


11F7 
FFFF 
15ED 
0000* 


99F8 
0000* 
00000000* 
0000+ 
103D 
0000* 
15F6 
0000+ 


epee 99:33:4 


U.2 WORD 
Q002E ; FASS cunt 


1 
0002€ ite $Ty YPE 
00030 Ui SASSUBEXP. 
0.29:  .wo 
00032 UTbASACTION 
0.30:  .LO 
00036 UF DASTARGES 
U.32: 
00038 
0003A : TPASACTION 
0003E ; TPASTARGET 
00040 : TPASTYPE 
00042 ; TPASSUBEX? 
00044 ; TPASACTION 
00048  TPASTARGET 
0004A ; TPASTYPE 
0004C ; TPASTARGET 
3: WORD 
0004E ; aFLUSH_ RECORD 
LK 
0004E : TPASTYPE 
00050 ; TPASTARGET 
WORD 
00052 ; TPASTYPE 
WORD 
00054 ; :TPABTARGET 
00056 ;ASSN_EQL 
.31:”  .BLKB 
00056 ; TPASTYPE 
.48:  .WORD 
00058 ; ; TPASSUBEXP 
0005A ;TBASACTION 
0005E i TRASTARGET 
00060 ; TPASTYPE 
i. : WORD 
00062 ; ;TPASTARGET 
00064 ; TPASTYPE 
0.55: —.WORD 
00066 ; TPASTARGET 
0.56:  .WORD 


“Ss: ee 
w w 


or. Se 
how 


hag ae 
noLS 


Cc 


AxX-11 BLi ist at 
FORRTL.SRC 


-1 

0 

26120 
<<U.28-U.29>-2> 
<<BLANKS_OF F-U.30>-4> 
<<U.31-U.32>-2> 
-28609 
<<DUMP_NAMES-U. 34>=4> 
<<U.35-U.36>-2> 
-26120 
<<U.38-U.39>-2> 
<<DUMP_VALUES=-U.40>-4> 
<<U.35-U.41>=2> 

5622 

<<U.17-U.43>-2> 

0 

4599 

-1 

5613 

<<U.35-U.47>-2> 

0 

-26120 

<<U.3-U.49>=2> 
<<NEXT_RECORD-U.50>-4> 
<<U.31-U.51>=2> 

4157 

<<U.53-U.54>-2> 

5622 

<<U.17*U.56>-2> 


FORNMLTAB. 3 231 


— 
| 


99F8 
0000* 
00000000* 
0000+ 
902C 
00000000v 
0000* 
99F8 
0000* 
00000000Vv 
0000+ 
99F8 
0000+ 
00000000v 
0000* 
15F6 
FFFF 


99F8 
0000+ 
00000000Vv 
0000* 
91F2 
00000000v 
0000+ 
99F8 
0000* 
00000000Vv 


415 
FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 16-Sep-1984 00:31: 
1-012 NEXT_RECORD = Get next record wasp i * ie 382 90: 33:9 


14-Sep-1984 
00068 ; jaye. LIST 
00068 ; i TRASTYPE 


WO 
0006A , TPASSUBEXP 
8: WORD 


0006C ; sTPasAcTiON 
00070 ; TPASTARGET 
00072 ; TPASTYPE 


00074 
00078 
Q007A 
0007c 
QOO7E ; 
00082 
00084 
00086 
00088 
0008C 
0008E 
00090 
00092 
00092 
00094 
00096 
Q009A 
0009C 
0009E 
QO00A2 
QO0A4 
000A6 


° 
e 


U. 


v. 


0.84: WORD 
0.85: WORD 


; TPASTARGET 


:TPASACTION 
; TPASTARGET 
: TPASTYPE 

; {PASSUBEXP 
: TPASACTION 
: TPASTARGET 
: TPASTYPE 

; TPASTARGET 


iA UE _List1 
-BLK 


+ TPASTYPE 

: TPASSUBEXP 
; TPASACTION 
* TPASTARGET 


81: 
; TPASTYPE 


U.82: WORD 


TPASACTION 
83; _ aL 
; TPASTARGET 

; TPASTYPE 


; TPASSUBEXP 


000A8 S TPASACTION 


61: _ WORD 
; TPASACTION 


. WORD 
; {PASSUBEXP 


-26120 

<<U.5-U.58>-2> 
<<NEXT_RECORD-U.59>=4> 
<<U.53-U.60>-2> 
-28628 
<<NULL_VALUE-U.62>-4> 
<<U.53-U.63>-2> 
-26120 
<<U.65-U.66>-2> 
<<BLANKS_ON-U.67>=4> 
<<U.68-U.69>=2> 
-26120 
<<U.71°U.72>-2> 
<<BLANKS_ON-U.73>=-4> 
<<U.68-U.74>=2> 

5622 

-1 

0 

-26120 

<<U.3-U.78>-2> 
<<BLANKS_OF F-U.79>-4> 
<<U.80-U.81>-2> 
-28174 
<<BLANKS_OFF-U.83>-4> 
<<U.80-U.84>-2> 
-26120 
<<U.86-U.87>-2> 


AX-11 Bliss-32 v4.0 
FORRTL.SRC FORNMLTAB. 5 2:1 


N 15 
FORSSNML_TABLES get, TAB ABLES - TPARSE state tables for NAMEL 16- Sep-1984 00:31: AX-11 BLi 4.0 
1-012 ECORD - Get next record 14- 8ep-19 4 99:33:98 PORRTL SRE FORMAL TAB B32;1 


U.88: LONG <<BLANKS_OFF-U.88>=4> 


0000* OOOAC j TRASTARGET 405.00-4.em2 
OF: . <U.80-U. >-2> 
95F6 OOOAE ; TPASTYPE 
U.90: «WORD 27146 
00000000V O00B0 ; TPASACTION 
U.91: «LONG <<SET_VALUE_IDENT=-U.91>-4> 
FFFF 00084 TN ame , 
00086 VALUE LIST é 
U.8 3 -BLKB 0 
99F8 O00B6 ; TPASTYPE 
U.93: WOR -26120 
0000* 00088 ; TPASSUBEXP 
U.94: «WORD <<U.3-U.94>=2> 
00000000* OOOBA ; TPASACTION 
U.95:  _.LONG <<NEXT_RECORD-U.95>-4> 
0000* OOOBE ; TPASTARGET 
U.96: «WORD <<U.80-U.96>-2> 
11F2 OQOOCO ; TPASTYPE 
U.97: -WORD 4594 


0000* 000C2 ; TPASTARGET 
U.98: »WORD <<U.80-U.98>-2> 


902C O00C4 ; TPASTYPE 
U.99: , WORD -28628 
00000000V O00C6 ; TPASACTION 
U.100: .LONG <<STORE_VALUE-U.100>-4> 
0000* OOOCA- ; TPASTARGET 
U.101: .WORD <<U.53-U.101>=-2> 
99F8 OOOCC ; TPASTYPE 
U.102: . -26120 
0000* OOOCE ; TPASSUBEXP 
U.104: .WORD <<U.103-U.104>-2> 
00000000V 000D0 ; TPASACTION 
U.105: .LONG <<STORE_VALUE-U.105>=-4> 
0000* 000D4 ; TPASTARGET 
U.106: .WORD <<U.53-U.106>-2> 
95F6 00006 ; TPASTYPE 
U.107: .WORD -27146 
00000000V 00008 ; TPASACTION 
U.108: .LONG <<SET_VALUE_IDENT-U.108>-4> 
FFFF QOODC ; TPASTARGET 
U.109: .WORD -1 
OOODE ;:NO_LPAREN 
U.86: -BLKB 0 
1028 OQOODE ; TPASTYPE 
U.110: .WORD 4136 
FFFE QOOEO ; TPASTARGET 
U.111: . WORD <2 
15F6 QOOE2 ; TPASTYPE 
U.112: .WORD 5622 
FFFF QOOE4 et) Hamat 
U.113: .WORD <1 
QOOE6 ;NO pam 
U.103: .BLKB 0 
19F8 QOOE6 ; TPASTYPE 
U.114: . WORD 6648 


—ITOMIOWZ El ACH TO ™MIOOCOZ Sl ACH ITO MM OOCOZS ACK TO ™MVOCOZ Sr KCK ITO ™MIOW 


FORSSNML_TABLES A play: TABLES = TPARSE state 
1-012 NEXT_RECORD = Get next record 


B 16 
tables for NAMEL 16-Sep-1984 


0000* O00E8 
0000* O00EA 
15F6 OOOEC 
FFFF OOOEE 

900F0 
1030 O00FO 
FFFE OOOF2 
15F6 OO0F4 
FFFF OOOF6 


19F8 OO0F8 
0000* OOOFA 
FFFE OOOFC 
15F6 OOOFE 
FFFF 00100 
00102 

8430 00102 
00000000v 00104 
903F 00108 
00000000V 0010A 
FFFF OO10E 
95F6 00110 
00000000v 00112 
FFFE 00116 
00118 

1021 00118 
FFFE OQO11A 
15F6 O011C 


4 2:82:98 


14-Sep-1984 
; TPASSUBEXP 
U.116: . WORD <<U.115-U.116>=2> 
; TPASTARGET 
U.118: .WORD <<U.117-U.118>-2> 
3; TPASTYPE 
U.119: .WORD 5622 
3 TPASTARGET 
U.120: -vgne -1 
3NO Paste 
U.1T7: .BLKB 0 
; TPASTYPE 
U.121: .WORD 4157 
3 TPASTARGET 
U.122: .WORD <2 
3 TPASTYPE 
U.123: .WORD 5622 
; TPASTARGET 
U.124: .WORD <1 
NO EQUALS QUESTION 
U.1T5: .BCKB 0 
3; TPASTYPE 
U.125: .WORD 6648 
; TPASSUBEXP 
U.126: .WORD <<U.38-U.126>-2> 
3 TPASTARGET 
U.127: .WORD <2 
3; TPASTYPE 
U.128: .WORD 5622 
: TPASTARGET 
U.129: ORD -1 
; EQUALS QUESTION 
U.38: ~ BLKB 
; TPASTYPE 
U.130: .WORD -31683 
3; TPASACTION 
U.131: .LONG <<BLANKS_ON-U.131>-4> 
3; TPASTYPE 
U.132: .WORD -28609 
3; TPASACTION 
U.133: LONG <<BLANKS _OF F-U.133>-4> 
3 TPASTARGET 
U.134: .WORD -1 
s TPASTYPE 
Hist e «WORD -27146 
; TPASACTIC 
U. 136: .LONG <<BLANKS_OFF-U.136>-4> 
; TPASTARGET 
U. 137: WORD <2 
3NO_COMMENT 
U.22: .BLKB 0 
3 TPASTYPE 
U.138: .WORD 4129 
; TPASTARGET 
U.139: .WORD <-2 
; TPASTYPE 
U.140: .WORD 5622 
; TPASTARGET 


FFFF QO11E 


AX-11 Bliss-32 V4.0-7 
FORRTL.SRC FORNMLTAB. 3 2;1 


16 
FORSSNML_TABLES 4 pt gt, TABLES = TPARSE state tables for NAMEL 1§- Sep-1984 00:31:0 AX-11 Bliss-32 V4.0- Pa 1 
1-012 RECORD = Get next record baer 09:35:08 PORRTL  SREIFORNML TaB 6 B32;1 - (8) 
U.141: WORD <1 : 
00120 VREPEATED” VALUE 
U.65: -BLKB 0 
95F3 00120 ;TPA TYPE 
U.142: WORD -27149 s 
00000000v 00122 ; ;TPASACTION 
14 «LONG <<BLANKS_ON-U.143>-4> : 
0000* 00126 O FPASTARGET 
U. 145: WORD <<U.144-U.145>-2> : 
00128 ;REPEAT2 
U.144: .BLKB 0 
902A 00128 ; TPASTYPE 
0.146: .WORD -28630 ; 
00000000V 0012A TPASACTION 
U.147: . LONG <<STORE_REPEAT=“U.147>-4> : 
0000* 0012E ; TPASTARGET 
U.149: WORD <<U.148-U.149>-2> : 
95F6 00130 ; TPASTYPE 
U. 150: .WORD <=-27146 : 
00000000V 00132 ; TPASACTION 
U. 151: .LONG <<BLANKS_OFF-U.151>-4> : 
FFFE 00136 ; TPASTARGET 
U.152: ~ WORD -2 : 
00138 ;REPEAT3 
U.148: .BLKB 0 
99F8 00138 ; TPASTYPE 
U.153: .WORD <-26120 : 
0000* 0013A ; TPASSUBEXP 
U.154: . WORD <<U.71-U.154>-2> : 
00000000V 0013C ; TPASACTION 
U.155: .LONG <<END_REPEAT-U.155>-4> : 
FFFF 00140 ; TPASTARGET 
woteet. « -1 3 
19F8 00142 ; TPASTYPE 
U.157: .WORD 6648 - 
0000* 00144 ; TPASSUBEXP 
U.159: . WORD <<U.158-U.159>-2> 3 
0000* 00146 ; TPASTARGET 
U.160: .WORD <<U.17-U.160>-2> ; 
95F6 00148 ; TPASTYPE 
U.161: .WORD -27146 2 
00090000V 0014A ; TPASACTION 
U.162: .LONG <<BLANKS_OFF-U.162>-4> 3 
FFFF OO14E ; TPASTARGET 
U.1635: . WORD -1 3 
00150 ;VALUE 
U.71: -BLKB 0 
99F8 00150 ; TPASTYPE 
U.164: .WORD -26120 : 
0000* 00152 5 ; TPASSUBEXP 
U.166: .WORD <<U.165-U.166>-2> 3 
00000000V 00154 ; TPASACTION 
U.167: .LONG <<STORE_LOGICAL-U.167>-4> : 
FFFF 00158 ; TPASTARGET 
U.168: .WORD -1 Z 
99F8 OO1SA ; TPASTYPE 
U.169: .WORD -26120 3 


D 16 
FORSSNL TABLES Ay ys TABLES = TPARSE state tables for NAMEL (7-200- 138% 99: 3] 
1-012 NEXT rd 4 2: 


RECORD = Get next recor 


14-Sep-19 
0000* 0015C ; TPASSUBEXP 
U.171: WORD 
00000000V 0015E ; TPASACTION 
U.172: LONG 
FFFF 00162 M1, Maer 
U.173: WORD 
19F8 00164 ; TPASTYPE 
U.174: WORD 
0000* 00166 ; TPASSUBEXP 
U.176: WORD 
FFFF 00168 ; TPASTARGET 
U.177: WORD 
9DF8 O016A ; TPASTYPE 
U.178:  .WORD 
0000* 0016C ; TPASSUBEXP 
U.180: .WORD 
00000000V O016E ; TPASACTION 
U.181: .LONG 
FFFF 00172 ; TPASTARGET 
U.182: . WORD 
00174 ;VARIABLE 
U.28: -BLKB 
91F6 00174 ; TPASTYPE 
U.183: WORD 
00000000V 00176 ; TPASACTION 
U.184: .LONG 
0000* 0017A ; TPASTARGET 
U.186: .WORD 
9DF8 O017C ; TPASTYPE 
U.187: WORD 
0000* OO017E ; TPASSUBEXP 
U.189: .WORD 
00000000V 00180 ; TPASACTION 
U.190: .LONG 
0000* 00184 ; TPASTARGET 
U.191: .WORD 
00186 ;VARIABLE2 
U.185: .BLKB 
85F6 00186 ; TPASTYPE 
U.192: . WORD 
00000000V 00188 ; TPASACTION 
U.1935: .LONG 
0018C SUBSCRIPT Pope 
9028 0018C ; TPASTYPE 
U.194: WORD 
00000000V 0018E ; TPASACTION 
U.195: LONG 
0000* 00192 ; TPASTARGET 
U.197: . WORD 
15F6 00194 ; TPASTYPE 
U.198: .WORD 
FFFF 00196 ; TPASTARGET 
U.199: WORD 
00198 ;SUB_LOOP1 
U.198: .BLKB 
99F8 00198 ; TPASTYPE 


08 AX-11 Bliss-32 V4.0-74 


1 FORRTL.SR 
<<U.170°U.171>=2> 
<<STORE_REAL<U.172>=4> 

-1 

6648 

<<U.175-U.176>=2> 

-1 

-25096 

<<U.179=U.180>-2> 
<<END_CHARACTER=U.181>-4> 
1 

0 

-28170 

<<WAS _VALUE_IDENT=-U.184>-4> 
<<U.185-U. 186>-2> 

-25096 

<<U. 188-U.189>-2> 
<<LOOKUP_IDENTIF IER-U.190>=4> 
<<U.185-U.191>-2> 

0 

31242 


<<BLANKS_ON-U.193>-4> 


28632 
<<INIT_SUBS-U.195>-4> 
<<U.196-U.197>-2> 
5622 

-1 


CIFORNMLTAB.BS2;1 


poRsSnnl. TABLES NEXT REE 


NEXT_RECO 


16 
TABLES = TPARSE state tables for NAMEL 16- -Sep- 


RD = Get next record 


0000* 
00000000* 
0000+ 
11F2 
0000+ 
89F8 
0000+ 
00000000Vv 
903A 
00000000Vv 
0000* 
15F6 
0000* 


99F8 
0000* 
00000000* 
0000* 
11F2 
0000+ 
102C 
0000* 
903A 
00000000v 
0006+ 
9029 
00000000Vv 
0000* 


0019A 
0019¢ 
001A0 
001A2 
OO1A4 
001A6 
001A8 
QO1AA 
OO1AE 
001B0 
00184 
00186 
00188 
001BA 
001BA 
0018C 
001BE 
001C2 
0014 
0016 
001¢8 


QOICA ; 


001CC 
OO1CE 
001D2 
00104 
00106 
001DA 


4-Sep- 


iit 19:32: 


AX=-11 Bliss-32 V4.0-7 


FORRTL.SRCJFORNMLTAB. ; 231 


-26120 

<<U.35*U.201>-2> 
<<NEXT_RECORD=-U.202>-4> 
<<U.196-U.203>-2> 

4594 

<<U.196=-U.205>=2> 

-30216 

<<U.207-U.208>-2> 

<<STORE _SUBS-U.209>-4> 
28614 
<<SUBSTRING_COLON-U.211>=4> 
<<U.212-U.213>=2> 

5622 

<<U.215-U.216>-2> 

0 

-26120 

<<U.3-U.218>-2> 
<<NEXT_RECORD=-U.219>-4> 
<<SUB_LOOP2-U.220>-2> 
4594 
<<SUB_LOOP2-U.222>-2> 
4140 

<<U.224-U.225>-2> 

-28614 
<<SUBSTRING_COLON-U.227>-4> 
<<U.212-U.228>-2> 

-28631 
<<END_SUBSCRIPT-U.230>-4> 
<<U.231-U.232>-2> 


row 


FORSSNML_TABLES F 
1-012 N 


ORSSNML_TABLES = TPARSE state tables for NAMEL 


EXT_RECORD = Get next record 


15F6 
0000* 


99F8 
0000* 
00000000* 
0000+ 
11F2 
0000* 
99F8 
0000+ 
00000000v 
0000* 
15F6 
0000+ 


8028 
00000000Vv 

15F6 

FFFF 


99F8 
0000* 
00000000* 
0000 
11F2 
0000* 
99F8 
0000+ 


0010C 
001DE 
001E0 
001E0 
001E2 
001E4 
001E8 
QO1EA 
OO1EC 
OO1EE 
001FO 
001F2 
001F6 
001F8 
OO1FA 
OO1FC 
OO1FC 
OO1FE 
00202 
00204 
00206 
00206 
00208 
0020A 
0020€ 
00210 


F 16 

66-Sep-1984 

4-Sep-1984 
; TPASTYPE 
U 31 ‘ 


oe dee 4 4 
~< < > 
wv DD 

a 


& 
oO 
“4 
(ml 


tee modes 
> < 
za 

a 


T_sU 


oo eee — 
a ~< 
= vw 


oe «Gee 
a 


99:33: 


RD 


: WORD 
SUBE XP 


3 


5622 


AX-11 B 
FORRTL. 


blegeae ag ae 
SRC JFORNMLTAB.B52; 1 


<<U.17°U.234>-2> 


0 
-26120 


<<U.3-U.236>-2> 
<<NEXT_RECORD-U.237>=4> 
<<U.224-U.238>-2> 


4594 


<<U.224-U.240>-2> 


-26120 


<<U.207-U.242>-2> 
<<STORE_SUBS-U.243>=-4> 
<<SUB_LOOP2-U.244>-2> 


5622 


-32728 


W <<U.215°U.246>-2> 
ape 


<<INIT_SUBS-U.248>-4> 


5622 
=1 


-26120 


<<U.35-U.252>-2> 
<<NEXT_RECORD-U.253>=4> 
<<LEF T_SUBSTRING-U.254>=2> 


4594 


<<LEFT_SUBSTRING-U.256>-2> 


-26120 


Page (8) 


16 
FORSSNML_TABLES Bt en TABLES = TPARSE state tables for NAMEL 18. Sep-1984 AxX-11 iss- 4. 
1-012 NEXT RECORD = Get next record eR ets a PE Se ht Pr ny ey Page 3 


U.258: .WORD <<U.207-U.258>-2> ; 
-aishamecsaglbaeate A peat <<STORE_SUBS<U.259>=4 
s 2 . -U. >-4> g 
eeetinanied 4s te SO 
. H se a a . >= > , 
903A O021E ; TPASTYPE 
U.262: .WORD ~28614 : 
wont satan MY ree <<SUBSTRING_ COLON-U.263>-4 
. air _COLON-U.263>-4> : 
0000* 00224 Bs Aaa ti 4 2hGen. Seseed 
Le ae <<U.212°U. 264>-2> 3 
15F6 00226 ; TPASTYPE 
U.265:  .WORD 5622 . 
0000* 00228 ; TPASTARGET 
U.266: .WO <<U.215-°U. 266>-2> § 
0022A ;SUBSTRING2 
U.260: .BLKB 0 
99F8 0022A ; TPASTYPE 
G.267: . -26120 : 
0000* 0022C ; TPASSUBEXP 
00000000* 0022E : TPASACTION 
U.269:  ,LONG <<NEXT_RECORD-U.269>-4> : 
000* 00232 ; TPASTARGET 
U.270: .WORD <<U.260-U.270>-2> 3 
11F2 00234 ; TPASTYPE 
U.arit -« 4594 : 
0000* 00236 ; TPASTARGET 
U.272: .WORD <<U.260-U.272>-2> : 
903A 00238 ; TPASTYPE 
U.273: .WORD -28614 : 
00000000V 0023A ; TPASACTION 
U.274: LONG <<SUBSTRING_COLON-U.274>-4> : 
0000* 0023E ; TPASTARGET 
U.275: . WORD <<U.212-U.275>-2> 2 
15F6 00240 ; TPASTYPE 
U.276: .WORD 5622 : 
0000* 00242 ; TPASTARGET 
U.277: . WORD <<U.17-U.277>-2> : 
00244 ;RIGHT _SUBSTRING 
U.212:  .BLKB 
99F8 00244 ; TPASTYPE 
U.278: .WORD -26120 3 
0000* 00246 j, THASSUBEXP 
U.279: . WORD <<U.3-U.279>-2> : 
00000000* 00248 ; TPASACTION 
U.280: .LONG <<NEXT_RECORD-U.280>-4> 3 
0000* 0024C ; TPASTARGET 
U.281: . WORD <<U.212-U.281>-2> : 
11F2 O024E ; TPASTYPE 
U eRe: WORD 4594 : 
0000* 00250 ; TPASTARGET 
U.283: .WORD <<U.212-U.283>-2> : 
99F8 00252 ; TPASTYPE 
U.284: WORD -26120 
0000* 00254 ; TPASSUBEXP 
U.285: . WORD <<U.207-U.285>-2> 


NML_TABLES FORSSHE, TABLES = TPARSE state tables for NAMEL hase -1984 00:31:0 AX-11 - 
NEXT_RECORD = Get next record 14- $e0-1984 99: 33:4 FORRT L°$ BR ie B32;1 rage (88 


00000000v 00256 ; TPASACTION 


U.286: .LONG  <<STORE_SUBS-U.286>-4> : 
rapecngeine. Wo’ gg} OO 
LJ : s < . -U. >= > $ 
9029 0025¢ gt ag ae 28631 
00000000v O025E ; TPASACTION : 
U.290: .LONG <<END_SUBSTRING=U.290>-4> : 
FFFF 00262 ; TPASTARGET 
U.291: WORD -1 : 
15F6 00264 es Hae $622 
0000* 00266 ; Bab tancer 
U.293: WORD <<U.215-U.293>-2> : 
00268 Se Heer 
U.287: .BLKB 0 
99F8 00268 ; TPASTYPE 
U.294: .WO -26120 3 
0000* 0026A ; TPASSUBEXP 
U.295: .WORD <<U.3-U.295>-2> ; 
00000000* 0026C ;TPASACTION 
U. 296: .LONG <<NEXT_RECORD-U.296>-4> ; 
0000* 00270 ; iPASTARGET 
U.297: a WORD <<U.287-U.297>-2> s 
11F2 00272 ; TPASTYPE 
U.298: .W 4594 : 
0000* 00274 ; TPASTARGET 
U.299: .W <<U.287-U.299>-2> : 
9029 00276 ; TPASTYPE 
U.300: .wOo -28631 : 
00000000V 00278 ; TPASACTION 
U.S01t -« <<END_SUBSTRING-U.301>-4> : 
FFFF OO27C ; TPASTARGET 
U.s0e: « -1 : 
15F6 OO27E ; TPASTYPE 
U.303: .WORD 5622 : 
0000* 00280 ; TPASTARGET 
U.304: .WORD <<U.17-U.304>-2> 3 
00282 ; IDENTIFIER 
U.188: .BLKB 0 
85EE 00282 ; TPASTYPE 
U.305: .WORD -31250 ; 
00000000V 00284 ; TPASACTION 
U.306: .L <<BLANKS_ON-U. 306>-4> : 
91F1 00288 ; TPASTYPE 
U.307: .WORD -28175 3 
00000000V 0028A ; TPASACTION 
U.308: .LONG <<BLANKS_OFF-U.308>-4> : 
FFFF OO28E ; TPASTARGET 
U.309: .WORD -1 s 
95F6 00290 ; TPASTYPE 
U.319: » WORD -27146 ; 
00000000v 00292 ;TPASACTION 
U. 311:  .LONG <<BLANKS_OFF-U.311>-4> : 
FFFF 00296 ; TPASTARGET 
U. 312: WORD -1 : 
00298 ;DECIMAL_INTEGER 


16 
FORSSNML_TABLES ee TABLES = TPARSE state tables for NAMEL 14. Sep-1984 99: 1: AX-11 Bliss-32 V4.0- P 7 
1-012 NEXT_RECORD = Get next record 14- ~8ep-19 44 3:3 3:98 FORRTL.SR RETFORNME TAB. 8 B52;1 _ (8 


07: K 
9DF8 00298 VibA type ey 


U.31 -WORD -25096 : 
pare ete iteagsuetae U.314-U.315>=2 
osiat « <<U.314"U.315>=2> : 
00000000V 0029C ;TPASACTION 
U.316: LONG <<CONVERT_INTEGER-U.316>-4> : 
FFFF QO2A0 ; TPASTARGET 
U.317: .WORD 1 : 
QO2A2 ; INTEGER 
U.314: .BLKB 0 
802B O002A2 ; TPASTYPE 
U.318: WORD 32725 : 
00000000V 002A4 ; TPASACTION 
U.319: .LONG <<BLANKS_ON-U.319>-4> ; 
802D 002A8 ; TPASTYPE 
U.320: .WORD  -32723 : 
00000000V O02AA ; TPASACTION 
U.321: .LONG <<BLANKS_ON-U.321>-4> : 
85F6 OO2AE ; TPASTYPE 
U.322: .WORD -31242 : 
00000000V 00280 ;TPASACTION 
U.323: .LONG <<BLANKS_ON-U.323>-4> : 
91F3 002B4 ; TPASTYPE 
U.324: .WORD  -28173 : 
00000000V 00286 ;TPASACTION 
U.325: .LONG <<BLANKS_OFF-U.325>-4> ; 
FFFF QO2BA ; TPASTARGET 
U.326: .WORD -1 : 
95F6 OO02BC ; TPASTYPE 
U.32?7: WORD =27146 : 
00000000v 002BE ; TPASACTION 
U.328: .LONG <<BLANKS_OFF-U.328>-4> : 
FFFE 002C2 ; TPASTARGET 
U.329: .WORD <2 ; 
002C4 ;REAL 
U.170: .BLKB 0 
802B 002C4 ; TPASTYPE 
U.330: .WORD <-32725 : 
00000000V 002C6 ; TPASACTION 
U.331: .L <<BLANKS_ON-U.331>=4> 
802D O02CA ; TPASTYPE 
U.332: .WORD -32723 
00000000v 002CcC A TRQRACTION 
U.333: .L <<BLANKS_ON-U. 333>-4> ; 
85F6 002D0 ; TPASTYPE 
U.334: WORD  -31242 : 
00000000V 002D2 ; TPASACTION 
U.335: .LONG <<BLANKS_ON-U.335>-4> 
60306 REAL1: .BLKB 0 
11EF 0206 ; TPASTYPE 
U.336: .WORD 4591 ; 
0000* 002D8 ; TPASTARGET 
U.337: WO <<REAL1-U.337>-2> : 
002E 002DA a TRAST YPE 
U.33 «WORD 46 
O5F6 O02DC ; TPASTYPE 


J 16 
FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 16-Sep-19 231: AX-11 Bliss- 4. 
1-012 NEXT_RECORD = Get next record 12: sat 99:33:98 YRORRTL Re FORNME TAB B832;1 


U.339: WORD 1526 : 


re 


OO Spe EAL2: .BLKB 0 
11EF QO2DE ; TPASTYPE 
0.340: .WORD 4591 P 
Menno eee TAT GORD <cREAL2=U.3619"2 
o : 8 -U. >-2> Z 
O5F6 OO2E2 ; TPASTYPE 
0.342: .WORD 1526 ; 
002E4 EXPONENT: 
-8LKB 0 
0045 O02E4 ; ZTBASTYPE 
WORD 69 : 
0065 002E6 UPAStyPE 
U.344: .WORD 101 : 
0044 002E8 ; TPASTYPE 
0.345: .WORD 68 : 
0064 OO2EA ; TPASTYPE 
U.346: .WORD 100 3 
0051 OO2EC ;TPASTYPE 
0.347: .WORD 81 : 
0071 OO2EE ; TPASTYPE 
U.348: .WORD 113 
O5SF6 OO2FO ; TPASTYPE 
U.349:  . WORD 1526 : 
002B O02F2 ; TPA$TYP 
U.350: WORD 43 : 
002D O02F4 ; TPASTYPE 
U.351: WORD 45 
OSF6 O02F6 ; TPASTYP 
U.352: .WORD 1526 3 
002F8 EXPONENT2: 
-BLKB 0 
11EF OO2F8 ; TPASTYPE 
0.353: .WORD 4591 , 
0000* OO2FA ; TPASTARGET 
U.354: WORD <<EXPONENT 2-U, 354>-2> : 
OSF6 OO2FC ; TPASTYPE 
U.355: WORD 1526 3 
19F8 OO2FE ; TPASTYPE 
U.356: .WORD 6648 : 
0000* 00300 ; TPASSUBEXP 
FFFE 00302 ; TPASTARGET 
U.358: .WORD <-2 3 
15F6 00304 ; TPASTYPE 
U.359: .WORD 5622 
FFFF 00306 ; TPASTARGET 
U.360: .WORD -1 
00308 ;NOT DELIM 
U.158: .BLKB 0 
19F8 00308 ; TPASTYPE 
U.361: .W 6648 3 
0000* 0030A ; TPASSUBEXP 
0.362: WORD  <<U.3-U.362>-2> 
FFFE OO30C ; ;TBASTARGET 2 
11F2 OQO30E ; TPASTYPE 


F 
1 


K 16 
SNML_TABLES FORSSNML TABLES ~ TPARSE state tables for NAMEL 16-Sep- 
2 NEXT_RECORD = Get next record es for EL 16-Sep-19 


FFFE 
102C 
FFFE 
1024 
FFFE 
1026 
FFFE 
1029 
FFFE 
15F6 
FFFF 


802E 
00000000Vv 
85F6 
00000000Vv 
0054 
0074 
0046 
0466 


19F8 
0000+ 
0000* 
95F6 
00000000v 
FFFF 


84 00:31:08 — YAX=11 BLisg~32,v4.0-74 


14-Sep-19 FORRTL.SRCJFORNMLTAB.B52;1 

U.364: .WORD 4594 
00310 ; TPASTARGET 

U.365: .WORD <2 
00312 ; TPASTYPE 

U.366: .WORD 4140 
00314 ; TPASTARGET 

U.367: WORD -2 
00316 Ay le 

U.368: .WORD 4132 
00318 ; TPASTARGET 

U.369: .WORD <2 
OO31A ; TPASTYPE 

U.370: .WORD 4134 
0031C ; TPASTARGET 

U.371: .WORD <=2 
OO31E ; TPASTYPE 

U.372: .WORD 4137 
00320 ; TPASTARGET 

U.373: .WOPD -2 
00322 ; TPASTYPE 

U.374: .WORD 5622 
00324 ; TPASTARGET 

U.375: WORD -1 
00326 ;LOGICAL 

U.165: .BLKB 0 
00326 ; TPASTYPE 

U.376: .WORD -32722 
00328 ; TPASACTION 

0.377: .LONG <<BLANKS_ON-U.377>-4> 
0032C ; TPASTYPE 

378: WORD -31242 

0032E ; TPASACTION 

0.379: .LONG  <<BLANKS_ON-U.379>-4> 
00332 ; TPASTYPE 

U.380: .WORD 84 
00334 ; TPASTYPE 

U.381: .WOR 116 
00336 ; TPASTYPE 

U.382: .WORD 70 
00338 ; TPASTYPE 

383: WOR 1126 

0033A LOGICAL1: ‘ 
0033A ; TPASTYPE 

U.384: .WORD 6648 
0033C ; TPASSUBEXP 

U.386: .WORD <<U.385-U.386>-2> 
OO33E ; TPASTARGET 

U.387: .WwOo <<LOGICAL1-U.387>-2> 
00340 ; TPASTYPE 

U : WORD -27146 


00342 ;TBASACTION 
00346 ; TPASTARGET 


00348 LOGICAL? 
eggs + aLKe 


<<BLANKS_OF F -U.389>-4> 
-1 
0 


FORSSNAL TABLES NEXT REE 


19F8 
0000* 
FFFE 
11F2 
FFFE 
102C 
FFFE 
1028 
FFFE 
1030 
FFFE 
1024 
FFFE 
1026 
FFFE 
15ED 
FFFF 


1428 
0000* 


99F8 

0000+ 
00000000* 

0000+ 
11F2 
0000* 
99F8 
0000+ 


16 
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este 
003KC 
OOS4E 
00350 
00352 
00354 
00356 
00358 
0035A ; 


0035C ; 
OO35E ; 
00360 ; 
00362 ; 
00364 ; 
00366 ; 
00368 ; 
0036A ; 
0036A ; 
0036C ; 
QO36E ; 
Q036E ; 
00370 ; 
00372 ; 
00376 ; 
00378 ; 
Q037A ; 
0037C ; 
QO37E ; 


4:08 AX-11 Bliss-32 V4.0 


FORRTL.SRC FORNMLTAB. 3 2;1 


6648 
<<U.3*U.392>-2> 
-2 

4594 

-2 

4140 

-2 

4136 

-2 

4157 

-2 

4132 

-2 

4134 

-2 

5613 

-1 

0 

5160 
<<U.409-U.410>-2> 
0 

-26120 
<<U.3-U.412>-2> 
<<NEXT_RECORD-U.413>=4> 
<<U.409-U.414>-2> 
4594 
<<U.409-U.416>-2> 
-26120 


FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 1 -1 
1-012 NEXT_RECORD = Get next record. sige ons EL ie: sep 38 4 93: 3): 8 


90000000v 
0000* 
15F6 
0000+ 


99F8 
0000* 
00000000* 
0000+ 
11F2 
0000* 
102C 
0000+ 
15F6 
0000* 


99F8 
0000+ 
00000000* 
0000* 
11F2 
0000+ 
99F8 
0000+ 
00000000Vv 
0000+ 
15F6 
0000+ 


14-Sep-1984 


U.418: WORD 

00380 ; TPASACTION 
U.419: LONG 

00384 TTPASTARGET 
Us 421: _,WORD 


o 
oO 
wa 
@ 
oO 
Mee Cee Cee Cee Cee 
oe =e —¢e Oe 
VR VUL VL UL UL UL VUL UL USOL US 
ee a 
vv x 
Te (ne 
= 


Cee Cee Cee Cee Cee Cee 
o —te —e —de —de 

= tee mee 4 

~< > < > 

v7 DU DD 

me R: me @ 

=m 

=_ _ 


ce. 
SWPNPWPWPMVM PM PM PM PMPMPMEBVYPrw 


a FRAANAOAOCADRANED OUR EAS VON - 
<_im 


LEX4 


cee 
—te oe 


003A0 ; 
003A2 ; 
003A4 
0038 
OO3AA 
OO3AC 
OO3AE 
00380 ; TPASSUBEXP 
00382 ;TPA ACTION 
00386 ; TPASTARGET 
00388. ; TPASTYPE 
cose Uisatianatl™ 


Cee Cee on, 
—~e . —de 


ce. 
—e —de at 
£3! PUL eh ULuULUhohurornun 
~ 


Cs: Se: See 


AX-11 Blis 


<<U.170°U.418>-2> 


=32 V4.0-74 
FORRTL.SRC JF ORNMLTAB.B52; 1 


<<STORE_COMPLEX=U.419>=4> 


<<U.420*U.421>=2> 
5622 
<<U.17"U.423>-2> 
0 

-26120 
<<U.35"U.425>-2> 


<<NEXT_RECORD-U.426>-4> 


<<U.420"U,427>-2> 
4594 


<<U.420-U.429>-2>. 


4140 
<<U.431-U.432>-2> 
5622 
<<U.17-U.434>-2> 
0 

-26120 
<<U.3-U.436>-2> 


<<NEXT_RECORD-U.437>-4> 


<<U.431-U.438>-2> 
4594 
<<U.431-U.440>-2> 
-26120 
<<U.170-U.442>-2> 


<<STORE_COMPLEX-U.443>=4> 


<<U.444-U.445>-2> 
5622 
<<U.17"U.447>-2> 


rom 


? 


FORSSNML TABLES FORSSNML TABLES = TPARSE state tables for NAMEL 16- Sep-1984 AX-11 B V4. | FO 
1-012 RECORD = Get next record f-sep-1984 93: 33: 8 PORRTL REF SANML TAB. B32;1 i a ” 


OO3BC ;COMPLEXS 
U Shety -BLKB 0 


99F8 OO3BC ; TPASTYPE 
U.448: .WORD -26120 ; 
0000* OO3BE ; TPASSUBEXP 
U.449: WORD <<U.3-U.449>-2> : 
00000000* 003C0 ; TPASACTION 
U.450: .LONG <<NEXT_RECORD-U.450>-4> : 
0000* 003C4 ; TPASTARGET 
U.451: WORD <<U.444-U.451>=2> : 
11F2 O03C6 ; TPASTYPE 
U.452: .WORD 4594 : 
0000* 003C8 ; TPASTARGET 
U.453:  . WORD €<U.444-U.453>-2> : 
1029 OO3CA ; TPASTYPE 
U.454: WORD 4137 3 
FFFF QO3CC ; TPASTARGET 
a. ae -1 : 
15F6 OO3CE ; TPASTYPE 
U.456: .WORD 5622 5 
0000* 00300 ; TPASTARGET 
U.457: . WORD <<U.17-U.457>-2> : 
003D2 ; CHARACTER 
U.179: .BLKB 0 
9427 00302 ; TPASTYPE 
U.458: .WORD <-27609 $ 
00000000V 00304 ; TPASACTION 
U.459: .LONG <<STRING_OK-U.459>-4> s 
0000* 00308 ; TPASTARGET 
U.461: <<U.460-U.461>-2> : 


. WORD 

OO3DA ; CHARACTER] 
U.460: .BLKB 0 

91F7 O03DA ; TPASTYPE 


-462: .WORD -28169 3 
00000000* 003DC ; TPASACTION 
U.463: . LONG <<NEXT_RECORD-U.463>=-4> : 
0000* O003E0 ; TPASTARGET 
ry ey eWORD <<U.460-U.464>-2> 3 
1027 OO3E2 ;TPA nH YPE 
U.465: WORD 4135 3 
0000* O03E4 ; TPASTARGET 
U.467: .WORD <<U.466-U.467>-2> 3 
95ED O03€6 ; TPASTYPE 
U.468: WORD -27155 3 
00000000V OO3E8 ; TPASACTION 
U.469: .LONG <<STORE_CHARACTER=U.469>=-4> : 
0000* OO3EC ; TPASTARGET 
U.470: .WORD <<U.460-U.470>-2> : 
OOSEE ;NEXT_QUOTE 
U.466: .BLKB 0 
91F7 OO3EE ; TPASTYPE 
U.471: .WORD -28169 : 
00000000* O003FO ; TPASACTION 
U.472: .LONG <<NEXT_RECORD-U.472>-4> $ 
0000* O03F4 ; TPASTARGET 
U.475: WORD <<U.466-U.473>-2> 3 
9027 O03F6 ; TPASTYPE 


FORSSI. TABLES FORSSIM, TABLES = TPARSE state tables for NAMEL 16-5 Sep-1984 :0 AX-11 Bliss-32 V4.0-74 Page 33 
1-012 NEXT_RECORD = Get next record 4-Sep-1984 99: 33: 3 FORRIL.S Met FORNMLTAB.B32;1 “ 3 
U.474: WORD -28633 ; 
00000000V 003F8 ;TPA ACTION 
U.475: LONG <<STORE_CHARACTER“U.475>=4> : 
0000* OO3FC ; TPASTARGET 
U.476: .WORD <<Ui.460-U.476>-2> : 
15F6 OO3FE ; TPASTYPE 
U.477: WORD 5622 3 
FFFF 00400 ; TPASTARGET 
U.478: ~WORD -1 P 
00402 ;ERROR_STATE 
U.17: -BLKB 0 
JIED 00402 ; TPASTYPE 
U.479: WORD -28179 3 
00000000V 00404 ; TPASACTION 
U.480: .LONG <<SYNTAX_ERROR=U.480>-4> : 
FFFE 00408 ; TPASTARGET 
U.481: .WORD -2 é 
95F6 O040A ; TPASTYPE 
U.482: .WORD 27146 : 
00000000V 0U40C ; TPASACTION 
U.483: .LONG <<SYNTAX_ERROR=U.483>-4> s 
FFFE 00410 ; TPASTARGET 
0.484: WOR ; 
00412 :INVREFVAR STATE 
U.215: .BCK | 
95F6 00412 ; TPASTYPE 
U.485: .WO -27146 : 
00000000V 00414 ; TPASACTION 
U.486:  .L <<INVREF VAR_ERROR=U.486>-4> : 
FFFE 00418 ;TPAS$ 
U.487: . -2 ; 


-PSECT _LIBSKEYO$,NOWRT, SHR, PIC,1 
00000 FORSSA_NMLKEYWP: 


LK 0 
00000 ; TPASKEYO 
U.1: -BLKB 0 
EXTRN FORSSCVT_TYPE, FORSSDO_NML_ OUTPUT 
-EXTRN FORSSREC RSNO, FORSSREC_W 
-EXTRN FORSSSIGNAL, FORSSSIGNAC™ STO 
-EXTRN OTSSCVT_TI_L, OTSSCVT_TL 
-EXTRN OTSSCVT_T_F, OTSSCVT_T_D 
-EXTRN OTSS$CVT_T"G, OTSSCVT_T_H 
-EXTRN LIBSSIG~TO_RET 
~-PSECT _FORSCODE,NOWRT, SHR, PIC,2 


~ 
> 
= 
a 
m 
_ 
De Se Be Oe Oe SA Se Se Be Be Be Be Be ee Bee ee Pe Se Se Se Se Se Ge SH Se Se Ge Se Se Be Se Be Se FE Se Se Se Se Se Se Ge Se Se Se Se Se Se Seae Bete Se Se ee seas 


083C 00000 NEXT_RECORD: 
WORD Save R2,R3,R4,R5,R11 : 0752 

5B 40 AC D0 00002 MOVL  64(AP), CCB : 0798. 

000000006 00 16 00006 18: JSB_ -—« FORSSREC_RSNO > 0801 | 

BO AB D6 900C INCL  =80(CCB) : 080¢ 

Oc AC BO AB DO 0000 MOVE, ~BO(CCB), 12¢AP) 0803 | 

08 Ac B4 AB BO AB C3 00014 SUBL3 -80(CCB). -76(CCB), 8(AP) : 0804 | 

E9 15 0001B BLEQ=s«1$ ; 0806 | 


— 


FORSSNML_TABLES CORSSNM TABLES = TPARSE state tables for NAMEL 1bese Sep-1984 AX-11 Bliss-32 V4.0-74 Page 
1-012 NEXT_RECORD = Get next record es 1 =30071 387 99: 3}: PORRTL™ SR RCIF FORNML CTAB 69251 . BS 
50 01 00 ) MOVL » RO ; 0807. 
Ba $802 20 RET + 0809 


3 Routine Size: 33 bytes, Routine Base: _FORSCODE + 0000 


1 
FORSSNML_TABLES FORSSNML_ TABLES = TPARSE state tables for NAMEL 16-Sep-1984 00:34:08 AX-11 Bliss=32 ad) pt Page 35 
1-012 INIT_SUBS = Start a subscript/substring 14-Sep-1984 12:32: FORRTL.SRCJFORNMLTAB.B32;1 (6) 
; P39 0810 1 ZSBITL ‘INIT_SUBS = Start a subscript/substring ' ‘ 
1; ri 0811 1 ROUTINE INIT_SUBS = ‘ 
3 Pee Bai§ 1 ‘ 
; 0815 1 !+4+ ‘ 
; ree pete ! : FUNCTIONAL DESCRIPTION: ; 
i: £56 0816 1! LIBSTPARSE action routine which initiates the evaluation of a subscript ‘ 
‘Ss te 0817 1! or substring. If the current variable can not have a subscript or ‘ 
i; 758 0818 1! a substring, an error routine is called. . 
; 99 0819 1! ‘ 
is 760 0820 1 ! CALLING SEQUENCE: : 
lz fe} 8s: 7 3 ; 
+ 16e 0822 1! status = INIT_SUBS () ; 
if 0823 1! ; 
; 766 0824 1 ! FORMAL PARAMETERS: ° 
: 765 0825 1! : 
: 766 0826 1! NONE ‘ 
: 767 0827 1! ‘ 
: 768 0828 1 | IMPLICIT INPUTS: : 
; 769 0829 1} : 
; 770 0830 1! AP Points to PARAM_BLOCK : 
> 771 0871 1! ; 
: 772 0832 1 ! IMPLICIT OUTPUTS: : 
; ifs 0833 1! “ 
: 774 0834 1 | PARAM_BLOCK CNML$L_CURIDX] = 0 : 
. FS 0835 1! ‘ 
: 776 0836 1 ! COMPLETION STATUS: : 
3 77 0837 1! : 
; 778 0838 1! 1 for success ° 
: 779 0839 1! : 
; 780 0840 1 ! SIDE EFFECTS: : 
> 781 0841 1 | : 
: fee 0842 1! Can call INVREFVAR_ERROR ‘ 
: «783 0843 1! ; 
; «784 0844 1 !-- ; 
5 veo 0845 1 : 
: 786 0846 2 BEGIN | : 
: 787 0847 2 ‘ 
: 788 0848 2 BUILTIN : 5 : 
: 789 0849 2 AP; ! Argument pointer points to parameter block 3 
: 790 0850 2 : 
; 791 0851 2 MAP 3 
; bees 2 AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); : 
; oF 08535 2 ‘ 
: 794 0854 2 LOCAL : 
; r9 0855 2 DESCR: REF BLOCK C, BYTE); : 
: 796 0856 2 : . 
: 797 0857 2 DESCR = .AP CNMLS$A_DESCR]; ! Get descriptor address ; 
3 «798 0858 2 
: 799 0859 $ '¢ f - : 
; 800 0860 ! If this variable is not an array or a string, signal FORS_INVREFVAR : 
; 801 0861 2 le 
: 802 p0s 
; 803 086 IF ((.DESCR CDSC$B_CLASS] EQL DSC$K_CLASS_A) OR 
> 804 0864 (.DESCR COSC$B_DTYPE) EQL DSCS$K_DTYPE_T)) 
: 805 0865 § THEN é : 
: 806 0866 AP CNML$L_CURIDX] = 0 ! Set up for start of subscript/substring 


1 
FORSSNML_TABLES Set TABLES = TPARSE state tables for NAMEL 16-Sep-1984 00:3 
1-012 INIT_SUBS = Start a subscript/substring 14-Sep-1984 12:3 
3 807 087 2 ELSE 
3: 868 0868 CALLG (.AP, INVREFVAR_ERROR); 
/; 809 0869 § 
is; 810 0870 RETURN 1; 
s 6ST 0871 2 
is 812 0872 1 END; 
| 0000 00000 INIT_SUBS: 
- WORD 
| 50 3¢ AC «=O 00002 MOVL 
04 03 AO 91 00006 CMPB 
06 13 OO00A BEQL 
OE 02 Ad 91 0000C CMPB 
| 05 12 90016 BNEQ 
| 48 AC D4 OOQ12 18: CURL 
05 11 0001 BRB 
OO00V CF 6C FA 00017 2$: CALLG 
| 50 01 DO 0001C 3$: OVL 
| 04 OOO1F 
| 


; 813 


; Routine Size: 


32 bytes, Routine Base: _FORSCODE + 0021 


0873 1 !<BLF/PAGE> 


708 VAX-11 Bliss=32 V4.0-742 
712 CFORRTL.SRCJFORNMLTAB.B32; 1 


ve nothin 
(AP), DESCR 
DESCR), &4 


DESCR), #14 


(AP), INVREFVAR_ERROR 
#1, RO 


Page 36 
’ (6) 


] 


1 
FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 18-Sep-1984 99: 33:0 AX-11 Bliss-32 V4.0-74 Page 37 FC 
1-012 SUBSTRING_COLON = Mark presence of colon in sub 14-Sep-1984 12:32:1 FORRTL.SRCJFORNMLTAB.B32; 1 (7) “ 
¢ i> 0874 1 XSBITL "SUBSTRING_COLON = Mark presence of colon in substring' ; 
; 816 0875 1 ROUTINE SUBSTRING_COLON = : 
3; Sir 0876 1 : 
; 818 0877 1 !4+ ; 
1s; 819 0878 1 ! FUNCTIONAL DESCRIPTION: ; 
3; 820 0879 1! ; 
> 821 0880 1! LIBSTPARSE action routine which is called when a colon is found in : 
13s 822 0881 1! a substring. If no left part has been found, it sets the left part ‘ 
; 823 pase 1! to 1 indicating that the low column was omitted. If the current ‘ 
3 Ree 0883 1! variable is not of type CHARACTER, then an error routine is called. ‘ 
; 25 0884 1! If the variable is an array, a subscript must have been previously ‘ 
; 826 0885 1! processed, otherwise an error is given. ‘ 
; 8er 0886 1! : 
> 828 0887 1 ! CALLING SEQUENCE: : 
; 829 0888 1! ; 
; 830 0889 1! status = SUBSTRING_COLON () : 
3; Bs) 0890 1! : 
; 832 0891 1 ! FORMAL PARAMETERS: ; 
; S35 0892 1! ‘ 
> 834 0893 1! NONE ; 
3; $355 0894 1! : 
; 836 0895 1 ! IMPLICIT INPUTS: : 
; 837 0896 1! : : 
; 838 0897 1! AP Points to PARAM_BLOCK ‘ 
; 839 0898 1! : 
; 840 0899 1 ! IMPLICIT OUTPUTS: : 
; 841 0900 1! ; 
; ah +49) : If NML$L_CURIDX = 0 then NMLSL_CURIDX = 1 and NML$L_SUBSCR[O] = 1 : 
; 844 0903 1 ! COMPLETION STATUS: : 
> 845 0904 1! ‘ 
; 846 0905 1! 1 ‘ 
: 847 0906 1! ‘ 
; 848 0907 1 ! SIDE EFFECTS: ; 
> «849 0908 1! ; 
; 850 0909 1! NONE ‘ 
: 851 0910 1! : 
; $26 0911 1 !-- ‘ 
; & 0912 1 : 
; 854 0913 2 BEGIN : 
3; So 0914 2 ‘ 
; 856 0915 2 LOCAL ; ’ ‘ 
3 Go” 0916 2 DESCR: REF BLOCK C, BYTE); ! Address of variable descriptor : 
; 858 0917 $ ‘ 
; 859 0918 BUILTIN ; : : 
; 860 0919 2 AP; ! Argument pointer points to parameter block ‘ 
: 861 0920 2 ‘ 
: 862 0921 2 P : 
; ti 0958 r4 AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); ° 
; 865 0924 5 IF .AP CNML$B_DTYPE] NEQ DSCSK_DTYPE_T : 
; 866 0925 THEN ; ; : 
3 rt Ba5¢ CALLG (.AP, INVREFVAR_ERROR);  ! Substring not allowed with non-CHARACTER : 
; 869 0928 1+ . : F : : 
: 870 9444 ! If this variable is an array, then a subscript must have been previously : 
; 871 0930 2 ! seen for a substring to be valid. 3 


H 1 
FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 16-Sep-1984 31:0 AX-11 Bliss-32 V4.0-74 Page 38 
1-012 SUBSTRING_COLON = Mark presence of colon in sub 14-Sep aa 90:33:98 PORRTL  SRESFORNML Tae. B42: 1 . res 
; 87 0931 le 
. or 09 ¢ 
; 8746 09 DESCR = .AP CNMLSA peat 
; 875 9 4 IF gDescR [DSCSB. CLASS) EOL DSCSK_CLASS_A AND NOT .AP CNML$V_SUBSCRIPT] 
13 1a O389 CALLG (.AP, INVREFVAR_ERROR);  ! Substring not allowed with unsubscripted array 
: 879 0938 IF .AP CNML$L_CURIDX] EQL 0 ! Substring of the form (:n)? 
: B80 0939 THEN ° 
; «4881 0940 BEGIN 
3; 88 0941 AP CNMLSL_CURIDX] = 1; ! Left bound is first character 
: 88 bees AP CNML$L-SUBSCR) = 1; 
; 884 094 END; 
; 885 0944 2 
; 886 0945 2 AP CNMLS$V_SUBSTRING] = 1; ! Indicate substring 
; 887 0946 2 
; 888 0947 2 RETURN 1; 
; 889 0948 2 
; 890 0949 1 END; 
0000 00000 SUBSTRING COLON: 
«WORD Save nothing ; 0875 
OE 44 AC 91 00002 C 68(AP), #14 3; 0924 
05 13 00006 BEQL 1$ : 
O000V CF 6C FA 00008 CALLG (AP), INVREFVAR_ERROR : 0926: 
50 3C AC 00 0000D 1$: MOVL 60(AP), DESCR ; 0933. 
04 03 ad 91 00011 CMPB =—s-«-3(DESCR), > 0934 | 
0A 12 00015 BNEQ  2$ : 
05 45 AC 03 €0 00017 BBS #3, 69(AP), 2$ 3 
0000V CF 6C FA OOOIC CALLG (AP), INVREFGAR ERROR ; 0936. 
48 AC D5 00021 2$: TSTL 72(AP) ; 0938. 
08 12 00024 BNEQ 3$ 3 
48 AC 01 00 00026 MOVL #1, 72(AP) ; 0941 
4C AC 01 00 O002A MOVL #1, 76(AP) ; Boek 
45 AC 01 88 OOO2ZE 3$: BISB2 #1, 69(AP) ; 094 
50 01 DO 00032 MOVL #1, RO 3 0947. 
04 00035 3 0949 | 


; Routine Size: 54 bytes, Routine Base: _FORSCODE + 0041 
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FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 1b-sep-19 4 99:33:08 AX-11 ae V4.0-74 Page 33 ‘ 

1-012 STORE_SUBS = Store a subscript or substring 14-Sep-1984 12:32: FORRTL.SRCJFORNMLTAB.B52;1 (8) 
893 0951 1 ZSBITL "STORE SUBS = Store a subscript or substring’ : 
894 8326 1 ROUTINE STORE_SUBS = ‘ 
895 0955 1 ‘ 
8 0954 1 !+e ; 
89 0955 1 ! FUNCTIONAL DESCRIPTION: : 
898 0956 1! ; : 
899 0957 1} LIBSTPARSE action routine which stores the value of a subscript or ‘ 
900 944: 1s substring column. It also checks to see if the allowed number of | : 
901 0959 1! subscripts have not been exceeded. ° 
90 0960 1! ; 
90 349 1 ! CALLING SEQUENCE: : 
904 906 7! : 
905 0965 1! status = STORE_SUBS () : 
906 0964 1! . 
90 0965 1 ! FORMAL PARAMETERS: ; 
908 0966 1! | ‘ 
909 0967 1! NONE : 
910 0968 1! : 
911 0969 1 ! IMPLICIT INPUTS: : 
a | 0970 1! | $ 
91 0971 #1! AP Points to PARAM_BLOCK : 
914 0972 1! ; 
915 09735 1! IMPLICIT OUTPUTS: ° 
916 0974 1! : 
917 o97> 4 4 PARAM_BLOCK CNMLSL_CURIDX] is incremented by 1 : ‘ 
918 0976 1! The value of the subscript is stored in the current subscript vector ; 
919 0977 1! location. : 
920 0978 1! ; 
921 0979 1 ! COMPLETION STATUS: 3 
922 0980 1! ; 
923 0981 1! 1 for success | : 
924 0982 1! $ 
925 0983 1 ! SIDE EFFECTS: : 
926 0984 1! 5 
927 0985 1! May call SYNTAX_ERROR 3 
928 0986 1! May call INVREFJAR_ERROR 3 
929 0987 1 | | ; 
930 0988 1 !-- | : 
931 0989 1 3 
932 0990 $ BEGIN 3 
933 0991 ; 
934 0992 2 BUILTIN ; 3 
935 0993 2 AP; ! Argument pointer points to parameter block | : 
936 0994 3 
937 0995 P 3 
938 0996 AP: REF BLOCK.C, BYTE] FIELD (NMLSFIELDS); : 
939 0997 | 3 
940 0998 LOCAL . 
941 0999 SUBSCRIPTS: REF yy C, LONG), : 
ge 1900 DESCR: REF BLOCK C, BYTES; : 
oy 5 SUBSCRIPTS = AP CNML$L_SUBSCR]; ! Address of subscript vector : 
946 1004 IF .AP CNML$V_SUBSTRING] 
947 1005 THEN 
948 1006 BEGIN : 
949 1007 IF .AP CNMLSL_CURIDX] GTR 1 ! Only two substring values allowed! 


| 
| 
| 
i 
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— FORSSNML TABLES FORSSNML_ TABLE ep-1984 :31:0 AX-11 Bliss-32 V4.0-7 
1-012 STORE_SUBS = Store a subscript or substring 14- ae 1884 99:33 1 FORRTL.SRCJFORNMLTAB. 5 231 
: 950 1008 
; 951 1009 ert «AP, SYNTAX_ERROR); 
3 326 1919 ad TPASL _NUMBERJ CEQ 0 ! Substring column can't be LEQ 0 
; 9546 10l¢ CALLG (.AP, INVREFVAR_ERROR); 
; 955 101 END 
; 956 1014 ELSE 
; 957 1015 BEGIN 
:; 958 1016 DESCR = .AP CNMLSA pest); ! Get descriptor address 
; 959 1017 IF .DESCR CDSC$B_ CCASS EQ DSCSK _CLASS_A 
; 960 1018 THEN 
; 961 Io? IF .AP CNMLSL_CURIDX] GEQ .DESCR COSC$B_DIMCT) 
; 996 1020 THEN 
: 96 1021 CALLG (.AP, INVREFVAR_ERROR); ! Too many subscripts 
: Ses 1058 sis 
: 966 1024 SUBSCRIPTS C.AP CNMLSLCURIDXI] = .AP CTPASL _NUMBER); ! Store subscript 
: 967 1025 $ P CNMLSL_CURIDX) = .AP CNML$L_CURIDX] + . 
; 968 1026 2 
; 969 1027 2 RETURN 1; 
: 970 1028 2 
; 971 1029 1 END; 
0004 00000 STORE_SUBS: 
» WORD Save R2 
52 4C AC 9€E 00002 MOVAB 76(AP), SUBSCRIPTS 
10 45 AC €E9 00006 BLBC 69(AP), 2$ 
01 48 ag D1 OOO0A CMPL 72(AP), #1 
0 15 OOO0E BLEQ 1$ 
OOO0OV CF 6C FA 00010 CALLG (AP), SYNTAX_ERROR 
1¢ AC D5 00015 1$: TSTL gB (AP) 
11. 11 00018 BRB $ 
50 3C AC DO QOOIA 2$: MOVL 60(AP), DESCR 
04 03 ad 91 BeOS CMPB 3(DESCR), #4 
OE 12 0002 BNEQ 4$ 
48 AC 0B AO 08 00 ED 00024 CMPZV #0, #8, 11(DESCR), 72¢AP) 
05 14 0002B 3$: BGTR 4$ 
O000v CF 6C FA bongs CALLG (AP), INVREFVAR_ERROR 
48 AC 00 00032 4$: MOVL 72(AP), 
6240 1¢ AC 00 Boe 38 MOVL SN st (SUBSCRIPTS) CROJ 
48 AC D6 000358 INCL (AP) 
50 01 DO OO0SE MOVL #1, RO 
04 00041 RET 
|; Routine Size: 66 bytes, Routine Base: _FORSCODE + 0077 
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1-012 D_SUBSCRIPT = End an array subscript 12-Sep-19 4 99:33:4 FORRTL.SRCIFORNMLTAB.B 2;1 * (9) | 
1; 976 ZSBITL_ "END_SUBSCRIPT = End an array subscript’ 
975 ROUTINE END_SUBSCRIPT = 
976 
977 lee 
38 } FUNCTIONAL DESCRIPTION: 
980 i LIBSTPARSE action routine which is called at the end of an array subscript. | 
+t ; It calls COMPUTE_INDEX to calculate the starting position in the array. 
| 388 i CALLING SEQUENCE: | 
352 status = END_SUBSCRIPT () 
987 i FORMAL PARAMETERS: 
988 
989 NONE 
i IMPLICIT INPUTS: | 
AP Points to PARAM_BLOCK 


i IMPLICIT OUTPUTS: | 


See COMPUTE _ INDEX ; 
NML$V_SUBSCRIPT = 1, to indicate subscript processed. 
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: i COMPLETION STATUS: 
; 4 1 for success 
i SIDE EFFECTS: 
\O0P Signals FORS$_INVREFVAR if a subscript is out of bounds. 
1008 leo | 
1009 
1010 BEGIN 
1011 
oie BUILTIN 
Hb AP; ! Argument pointer points to parameter block 
1015 7 P 
44 3 : AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 
1018 7 IF NOT (CALLG (.AP, COMPUTE_INDEX)) 
1019 7 THEN 
1OSe 4 CALLG (.AP, INVREFVAR_ERROR); 
1068 . AP CNMLS$V_SUBSCRIPT] = 1; ! Allows substring to follow for arrays 
1024 8 RETURN 1; 
1025 8 
1026 8 END; 
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0000 00000 END_SUBSCRIPT: 
WORD 


: Save morning : 1033 | : 
0000v cf 66 FA 9002 CALLG (AP), COMPUTE_INDEX + 1075. 
5 6 £8 BLAS ~=s«RO, {$ : | ; 
0000v CF 6C FA OOO0A CALLG (AP), INVREFVAR_ERROR > 1077) ; 
45 AC 08 88 OOOOF 1$: BISB2 #8, 69(AP) > 1079. 
| 50 01 D0 00013 OVL #1, RO : 1081 
04 00016 RET : 1083 


; Routine Size: 23 bytes, | Routine Base: _FORSCODE + 0089 
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COMPUTE_TNDEX = Compute the array index 4-Sep-1984 2:1 PORRTLS eS FOsNML tea. 3 2;1 (10) 


ZSBTTL ‘COMPUTE_INDEX = Compute the array index’ 
ROUTINE COMPUTE_INDEX = 


—_ 

Oooo 
2.00 0000 
ONOW 


IMPLICIT OUTPUTS: 


PARAM_BLOCK CNMLSA_VARCUR] = Starting address 
PARAM_BLOCK CNMLSA_VARSTART] = Starting address 


COMPLETION STATUS: 


1 for success 
SS$_SUBRNG for subscript out of range 


SIDE EFFECTS: 
NONE 


8 ‘+ 

O56 ' FUNCTIONAL DESCRIPTION: 

09 Routine which computes the yen Se location for the current 
83 variable based on the array subscripts seen. 
64 CALLING SEQUENCE: 

44 status = COMPUTE_INDEX () 

44 FORMAL PARAMETERS: 

8 NONE 

8 IMPLICIT INPUTS: 

5 AP Points to PARAM_BLOCK 

0 

0 

0 

0 


BEGIN 
BUILTIN 
AP; ! Argument pointer points to parameter block 
P 
AP: REF BLOCK C, BYTE) FIELD (NMLSFIELDS); 
LOCAL 


DESCR: REF BLOCK C, BYTE], 
MULTIPLIERS: REF VECTOR C.LONG),! 


Pwn—-0C0@n 


Variable descriptor 
hult plier array 


5 ! 

6 i 

7 LAST_MUL i Previous bounds multiplier 
5 BOUNDS: REF VECTOR [,LONG), i Current bounds 

9 SUBSCRIPT: REF VECTOR C,LONG], ! Current subscript 

0 DIMENSION, i Current dimension 

1 OFFSET; i Offset into array 

; ENABL 


E 
LIB$SIG_TO_RET; ! Return SS$_SUBRNG as a status 
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FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 16-Sep-1984 90: 33:08 AX-11 Oi let ae V4.0-74 Page 44. 
1-012 OMPUTE_TNDEX = Compute the array index 14-Sep-1984 12:32: FORRTL.SRCFORNMLTAB.B32;1 (10) 
o86 DESCR = .AP CNMLSA_DESCRI; ! Get descriptor address 
'; 1088 + 
oe If the descriptor class is not ARRAY, then a subscript is illegal. 
3 1091 : 
09¢ IF .DESCR CDSC$B_CLASS] NEQ DSCSK_CLASS_A 
09 THEN 
094 RETURN 0; 
095 
O98 + 
09 ! If the number of subscripts doesn't match the number of dimensions, then 
098 ! it is an error. 
099 \- 
1 IF .DESCR CDSCSB_DIMCT] NEQ .AP CNMLSL_CURIDX] 
5 RETURN 0; ! Number of subscripts don't match | 
5 DIMENSION = .AP_CNMLSL_CURIDX] - 1; 
SUBSCRIPT = AP CNML$L_SUBSCR] + (4 * .DIMENSION); 
MULTIPLIERS = DESCR CBSCSL_M1] + (4 * .DIMENSION) = 4; | 
LAST_MULT = .MULTIPLIERS 4 
BOUNDS = MULTIPLIERS [2] + (8 © .DIMENSION); 
OFFSET = 0; 
‘¢ | 


: For each dimension, from last to first, compute the offset into the 
! array. If a subscript is out of bounds, the INDEX instruction will 
signal an error. 


DECR DIM FROM .DIMENSION TO 0 DC | 
BEGIN 


IF .DIM EQL 0 
THEN 


LAST MULT = 1; 
INDEX (SOBSCRIPT (03, BOUNDS [OJ, BOUNDS [1], LAST_MULT, 


FSET, OFFSET 
MULTIPLIERS = MULTIPLIERS ([-1); | 
LAST MULT = .MULTIPLIERS CO); 
BOUNDS = BOUNDS [-2); 

SUBSCRIPT = SUBSCRIPT (-1); 


AP CNMLSA_VARCUR) = .DESCR CDSC$A_AO] + (.OFFSET * .AP CNML$W_STRIDE)); 
AP CNMLSA_VARSTART) = .AP CNML$A_QARCUR); 


RETURN 1; 
END; 
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| 007C 00000 COMPUTE_INDEX: 
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. . 


COMPUTE_INDEX = Compute the array index 14-Sep-1984 1 FORRTL.SRCJFORNMLTAB.B352;1 (10) | 
«WORD Save R2,R3,R4,R5,R6 : 1086. 
gp 0063 CF DE 90002 MOVAL 33 FPS : 1995, 
¢ ac 00 0000 MOVL G0 (ap) DESCR + 1142) 
04 0 A3 91 90008 CMPB 3<DESCR), Th > 1148 | 
48 AC 0B AS 08 00 €D 00011 CMPZV #0, #8, 11(DESCR), 72(AP) ; 1157| 
4C le 00018 NEQ 4$ : 
| 50 48 AC 07 C3 OOO1A SUBL3 #1. 72(AP), DIME > 1161) 
56 4C AC4O DE O00TF MOVAL FOtAPSLDIMENSIONT. in : 116¢ | 
54 10 A340 DE 00024 MOVAL 1@(DESCR) CDIMENS ON AULT IPLIERS : 1163 | 
55 64 00 00029 OVL (MULTIPLIERS) + 1164. 
52 08 A440 7E 900¢¢ MOVAQ B(MULTIPLIERSS CDI MENS ON], BOUNDS + 1165) 
51 04 00031 CLRL OFFSET : 1166. 
50 06 00035 INCL DIM + 1174 
16 11 00035 BRB 3$ ; | 
03 12 00037 1$ BNEQ 2§ : 1176) 
55 01 DO 00039 MOVL #1, LAST_MULT + 1178. 
55 04 A2 62 66 OA 9003¢ 2$ INDEX (SUBSCRIPT) - (BOUNDS? 4(BOUNDS), - + 1179 
51 51 0004 LAST MULT, OFFSET : 
55 74 DO 00044 MOVL (MULTI IPLIERS)» easy _MULT : 1182 | 
52 08 C2 00047 SUBL2 BOUNDS > 1183) 
56 04 C2 0004A SUBL2 re SUBSCRIPT > 1184) 
£7 50 F4 0004D 3$ SOBGEQ + 1174 | 
50 3A AC 3C 00050 MOVZWL 58(AP) : 1187) 
51 50 C4 00054 MULL2 RO, R1- : | 
34 AC 10 B341 9E 00057 MOVAB Mi Sbscmcan 52( AP) : | 
x a 34 AC DO 0005D MOVL 32(AP), 44(A : 1188 
50 01 DO 00062 MOVL , RO- ; 1190 | 
04 00065 RET : | 
50 D4 00066 4$ CLRL = RO : 1192. 
04 00068 RET ; : | 
0000 00069 5$ .WORD Save nothing > 1122) 
7E 04 00068 CLRL = = (SP) ; 
SE DD 0006D PUSHL SP ; | 
7E 04 AC 7D 0006F MOVQ 4 (AP), =(SP) : 
000000006 00 03 FB 00073 CALLS #3, Liessic. TO_RET : | 
04 0007A RET F 


; Routine Size: 123 bytes, Routine Base: _FORSCODE + 00D0 
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END_SUBSTRING = End a substring 14-Sep-1984 12:32:1 FORRTL.SRCJFORNMLTAB.B32;1 (11) 
XSBITL "END SUBSTRING = End a substring’ 
ROUTINE END“SUBSTRING = 


i FUNCTIONAL DESCRIPTION: 

LIBSTPARSE action routine which evaluates a substring reference. 
i CALLING SEQUENCE: 

status = END_SUBSTRING () 
i FORMAL PARAMETERS: 


NONE 
i IMPLICIT INPUTS: 
AP Points to PARAM_BLOCK 


PARAM_BLOCK CNMLSA_VARCUR] = Set to starting point 
PARAM_BLOCK CNML$W_VARSIZE] = Set to String stze 
PARAM_BLOCK CNMLSA_VARSTART] = Set to starting point 
i COMPLETION STATUS: 
1 for success 
i SIDE EFFECTS: 


Can call INVREFVAR_ERROR if the substring is out-of-bounds. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
IMPLICIT OUTPUTS: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


BEGIN 


BUILTIN : A 
AP; ! Argument pointer points to parameter block 


MAP 
AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 


IF .AP CNML$L_CURIDX] EQL 1 


AP_CNML$L_SUBSTRHI) =_.AP CNML$W_VARSIZE) 
ELSE IF .AP CRMLS$L_CURIDX] NEQ 2 


HEN 
CALLG (.AP, SYNTAX_ERROR) ; 


IF .AP CNML$L_SUBSTRLO) LEQ 0 OR .AP CNMLS$L_SUBSTRHI] LSS .AP CNML$L_SUBSTRLOJ OR 
AP CNML$L-~SUBSTRHI] GTR .AP CNML$W_VARSTZE) 


CALLG (.AP, INVREFVAR_ERROR) ; 
AP CNMLSA_VARCUR] = .AP CNMLSA_VARCUR] + .AP CNMLS$L_SUBSTRLO) - 1; 
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D 2 
FORSSNML_TABLES FORSSNML_TABLES - TPARSE state tables for NAMEL 16-Sep-1984 00:31:0 AX-11 Bliss-32 V4.0 Page 47 
1-012 END_SUBSTRING = End a substring 14- wep 1382 09:33:08 FORRTL. SRC IFORNML TAB. ys 2:1 9 nt) 
: 1196 1251 AP CNMLS$A_VARSTART] = NML$A_VARCUR]; 
; 1197 2 AP CNML$W-VARSIZE] = (. “AP NML$LISUBSTRHI] = .AP CNMLSL_SUBSTRLOJ) + 1; 
: 1138 1256 RETURN 1; 
: 1200 1255 
> 1201 1256 1 END; 
0000 00000 END_SUBSTRING: 
«WORD Save nothing 3 1195 
01 48 AC D1 00002 CMPL  72(AP), #1 + 1238. 
07 12 00006 NEG  1$ : | 
50 AC 38 AC 3C 00008 MOVZWL 56(AP), 80(AP) > 1240) 
0B 11 0000D BRB 2$ : 
02 48 AC D1 OOOOF 1$ CMPL  72¢AP), #2 > 1241) 
05 13 00013 BEQL © 2$ ; 
QO000v CF 6C FA 00015 CALLG (AP), SYNTAX_ERROR : 1243 
4C AC DS OOO1A 28: TSTL 76(AP) + 1245 
10 15 0001D BLEQ 46. 3$ F 
4c AC 50 AC D1 OO001F CMPL  BOCAP), 76(AP) : 
09 19 00024 BLSS 3$ : 
50 AC 38 AC 10 00 ED 00026 CMPZV #0, #16, 56(AP), 80(AP) + 1246) 
05 18 0002D BGEQ = 4$ : 
0000v CF 6C FA 000¢F 3$ CALLG (AP), INVREFVAR_ERROR + 124 
50 34 AC 4C AC C1 00034 4$ ADDL3 76(AP), 52(AP),~RO > 125 
34 AC FF AQ 9E OOO3A MOVAB -1(RO0), S2C¢AP) : 
2c AC 34 AC DO 0003F MOVL  S2(AP), 24(AP) + 125 
50 50 AC 4c 60 AC SOC3 00044 SUBL3 76(AP). 80(AP), RO + 125 
38 = AC 50 01 Al OO04A ADDW3 #1, RO, S6(AP) : 
50 01 DO 0004F MOVL #1. RO : 125 
04 00052 RET + 125 


; Routine Size: 83 bytes, Routine Base: _FORSCODE + 0148 


3 1202 1257 1 !<BLF/PAGE> 


a 
-_ 


— 
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FORSSNML_TABLES SNML_TABLES = TPARSE state tables for NAMEL 16-Sep-1984 09: 34:0 AX-11 Oi rete ne V4.0-74 Page 48 FC 
1-0 ERT_INTEGER = Convert a decimal integer 14-Sep-1984 12:52:1 FORRTL.SRCJFORNMLTAB.B32; 1 (12) 1: 
ZSBITL "CONVERT_INTEGER = Convert a decimal integer’ 
ROUTINE CONVERT_INTEGER = 


++ 

FUNCTIONAL DESCRIPTION: 
LIBSTPARSE action routine which converts the current token to a 
gonpuerd integer which is stored in TPASL_NUMBER. If the conversion 
fails, an error is signalled. 

! CALLING SEQUENCE: 
status = CONVERT_INTEGER () 


FORMAL PARAMETERS: 


SPAAOOOOvm 2H 


DWNAUE WN $0 ODNAUE WN O ODNAU EWN O OONAUES WN —(CODNAOULSWI—OWOM <S* 


NONE 
AP Points to PARAM_BLOCK 


' 

i 

i 

i 

i 

i 

i 

i 

' 

i 

i 

i 

i 

i 

; IMPLICIT INPUTS: 
i 

! IMPLICIT OUTPUTS: 
TPASL_NUMBER gets the binary value of the integer token 
i COMPLETION STATUS: 

SS$S_NORMAL if success 

i SIDE EFFECTS: 

May signal FORS_INPCONERR, input conversion error 

i 


BEGIN 


BUILTIN 
AP; ! Argument pointer points to parameter block 


, AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 
IF NOT OTSSCVT_TI_L (AP CTPASL_TOKENCNT], AP CTPASL_NUMBER]) 
CALLG (.AP, INPCONERR_ERROR); 
RETURN 1; 
END; 


DV Bs BS BS BB BE EE EAA NANA II RINDI NNONDD 2 2 SS SS S| OOOOCOO PN 


PWN @OODBNA OE WR OODNAUNEWN QMO ODNOUEWN A OORDNOUR WR IODDNOOE 
a em ce ee ee ee ce ee ee ee ce ee ee ee ee ee ce ee ee ee ee ee ce ee ee ee ee eed eed on 


Be Se Be Be Be Se Be Ge Be Be Ge Se Se Ge Se Be Be Se Fe Se Ge Be Se Se Ge oe SH Se 5 Se SH Se Se Se Se Se BF Se Se Se Se eee Se SHSe Se Se eee — 
kk ee ek ek ed a dd 
PIPDPIPINININININPYNINIPINININPIP NINO NPP Po NoNononofPononononynononpononononofpopofornoronofnypononrrrnrrn 
WWAAAI AAAI AIDS PI PIPPIN NINPINININ NPN No Nong Ponononononononofnonofnonononononononofnonofponypnonons OO 
OODOOCOOCOOCCOO0O0O0O0O OO OOO 000 000000 0 00 00 SI SI NI NINN NS NNN NOOO 

= PORNO PONOPONONONONO NODS 2 St ss 


0000 00000 CONVERT_INTEGER: 


i 


FORSRIL.TABLES Aiea 2am TABLES - TPARSE state aos for NAMEL 16-Sep-1984 99: 31:08 AX-11 Olea tee 


ONVERT_T R = Convert a decimal integer -Sep- 


1¢ AC OF st 
10 AC 9F 0000 S 
000000006 00 O02 FB 00008 CALLS 
05 50 €8 OO00F BLBS 
QO00V CF 6C FA 00012 CALLG 
50 01 00 00017 1$ MOVL 
04 OOO1A RET 


; Routine Size: 27 bytes, Routine Base: _FORSCODE + 019E 


s 1293 1309 1 !<BLF/PAGE> 


.WORD 33 
PUSHAB (AP) 
PUSHAB 16(AP) 


FORRTL.SR 
ve _ nothing 


a2, OTSSCVT_TI_L 
(AP), INPCONERR_ERROR 
#1, RO 


. 
. 
. 
e 
. 
. 
. 
o 
. 
. 
. 
° 
. 
. 
. 
e 


ee ns 
1. 


AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 
if -AP CNMLSB_DTYPE] NEQ DSCSK_DTYPE_T 
CALLG (.AP, INPCONERR_ERROR); ! Input conversion error 
IF .AP CNMLSA_VARSTART) GEQA .AP CNMLSA_VAREND] 
FORSSSIGNAL_STO (FORSK_TOOMANVAL, .AP CNMLSA_VARNAME )); 
AP CTPA$V_BLANKS) = 1; 
AP CNML$B_CONSTYPE] = K_CHARA 


CTER; 
AP _CNMLS$L_CONSBLOCK) = TAP CNMLSA_VARSTART); 
RETURN 1; 


HAMMAN 


SEIS 
Ou Fwn—O0@a~n 


2 
FORSSNML_TABLES = TPARSE state tables for NAMEL 18-56 -1984 00:31:0 AX-11 Bliss-32 V4.0-74 Page 50 
STRING_OR = Is a string value ok? 1e-8ep-19 4 90:35/4 FORRTL.SRCIFORNMLTAB.B 2;1 ’ 135 
: 1310 1 ZSBTTL ‘STRING_OK = Is a string value ok?’ : 
: 1311 1 ROUTINE STRING“OK = : 
; 1 1g 1 : 
3 131 1 lee ; 
; : 1 : FUNCTIONAL DESCRIPTION: : 
: 1 18 1! LIBSTPARSE action routine which returns success if the current variable ; 
: Colas datatype is CHARACTER. It also sets TPASV_BLANKS if successful. ; 
; : 18 : If the datatype is not CHARACTER, INPCONERR is signalled. ; 
; 1320 1 ! CALLING SEQUENCE: : 
; 508 13e1 1! : 
: 1269 1 § 1! status = STRING_OK () . 
: 1270 13 1! ‘ 
; 1271 3 4 1 ! FORMAL PARAMETERS: . 
: $f 1 $2 1! : 
3; 127 1326 1! NONE ; 
: 1274 1327 1! ; 
: 1275 1328 1°! IMPLICIT INPUTS: ; 
3 $76 1367 1! ‘ 
3 Ver 1330 1! ap Points to PARAM_BLOCK ; 
: 1278 1331 1°! : 
3: 1279 1336 1 ! IMPLICIT OUTPUTS: : 
; 1280 1333 1! ; 
; +t lege | PARAM_BLOCK CTPASV_BLANKS] = 1 if successful ; 
; $84 1336 1 : COMPLETION STATUS: : 
3: 1284 1337 1! : 
; 1285 1338 1! 1 = success ; 
: 1286 1339 1! ’ 
: 1287 1340 1 ! SIDE EFFECTS: . 
; 1288 1341 1! : 
3 sae 1308 1: May signal FORS_INPCONERR, input conversion error . 
; 1290 1343 1! : 
; 1291 1344 1 !-- ’ 
3 $38 1345 1 : 
: 129 1346 2 BEGIN : 
3: 1294 1347 2 ; 
: 1295 1348 2 BUILTIN : 
: 1296 1349 2 AP; ! Argument pointer points to parameter block : 
: 1297 1350 2 : 
: 1298 1351 § MAP : 
3; 1299 13 4 . 
; 1300 13 ‘ 
3; 1301 1354 . 
3 308 1355 : 
3; 130 1356 : 
3 a8 13 : 
3; 1305 13 : 
: 13 . 
: 13 : 
: 13 . 
: 13 : 
: 13 ’ 
: 13 . 
: 13 : 
: 13 : 


3 
3 
3 
3 
3 
3 
3 
3 


—— 
AOAAOO 


wn—o 


2 
FORSSNML_TABLES Mot peg TABLES = TPARSE state tables for NAMEL 1+ ~pe0= 128% : $3 3}: 08 VAX-11 Bliss-32 V4.0-74 Page 51 
1-012 STRING_OR = Is a string value ok? 14-Sep-1984 12:32:1 CFORRTL.SRCJFORNMLTAB.B32;1 (13) 
: 1314 1367 1 END; 
0000 00000 STRING_OK: 
. WO Save nothing s 131 
OE 44 AC 91 00002 CMPB 6B(AP), #14 3; 135 
05 13 00006 BEQL 1$ : 
0000v CF 6C FA 00008 CALLG (AP), INPCONERR_ERROR : 135 
30 =—AC 2c AC D1 Q000D 1$: CMPL 44(AP), 48(AP) ; 135 
OC 1F 00012 BLSSU_ 2$ 3 
28 AC DD 00014 PUSHL 40(AP) : 136 
\s DD 00017 PUSHL #18 3 
000000006 00 8 FB 00019 CALL #2, FORSSSIGNAL_STO ; 
046 AC 1 i 00020 2$: B1SB #1, 4SCAP) 3 1369 
46 «AC 05 90 00024 MOVB #5, 7OCAP 3 136 
68 AC 2C = =6—AC 6020 00028 MOVL 44(AP), 104(AP) 3: 1364, 
50 01 00 0002D MOVL #1, RO : 1365 
04 00030 RET 3 1367) 


; Routine Size: 49 bytes, Routine Base: _FORSCODE + 01B9 


; 1315 1368 1 !<BLF/PAGE> 


eal 
Ce 


FORSS 
1-012 


NML_TABLES FORSSNML_TABL 
RE_CHARAC 


T 
ZSBTT 
ROUT! 


i FUNCTIONAL DESCRIPTION: 
LIBSTPARSE action routine which stores the character at TPA$B_CHAR 
at the location referenced by NMLSA_VARCUR. NMLSA_VARCUR is Ehen 
incremented by 1. If the character would be stored past the end 
of the string, the procedure returns success without storing anything. 
CALLING SEQUENCE: 
status = STORE_CHARACTER () 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
AP Points to PARAM_BLOCK 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
1 for success 
SIDE EFFECTS: 
NONE 


2 
- TPARSE state tables for NAMEL 1h-sép-19 4 90:33:08 AX-11 Oh fegere V4.0-74 Page 52 
- Store a character in a string 14-Sep-1984 12:32: FORRTL.SRCJFORNMLTAB.B32;1 (14) 


T 
S 
*STORE_CHARACTER = Store a character in a string’ 
STORE_CHARACTER = 


S$ 
R 


wn 
~ 


COOOOONNNNNNNNNNO OO 


E 
E 
L 
NE 


WNIWAIAI.ANIAINAN 


WWWANNAANNA NNN NNN 


DUP PSII EB ES ES ES ES EB NANA ANWAIIIP POPU PUNIPUNINYA 
WAWAAWAWANWNNW AWWW 


woononovono 


BEGIN 


BUILTIN ? é 
AP; ! Argument pointer points to parameter block 


LA. AIA AIAI AAA AIA ANNA AWWW 


o 


Pp 
AP: REF BLOCK C, BYTE) JELD (NMLSFIELDS); 

if ad CNML$A_VARCUR] = .AP CNMLSA_VARSTART] GEQA .AP CNML$W_VARSIZE) 
RETURN 1; 


CHSWCHAR_A (.AP CTPA$B_CHAR], AP CNMLSA_VARCUR)); 
RETURN 1; 


END; 


MEUM 0 CO NAUES UN —$ O OONAUE WN (OOO NOUESWN OOD VNOUS WN OWOOn 


RROD 


Bae Oe Se Be Oe Be ee Se Se Be Se ee Be Se Se Se Ge Ge Ge Se Se Se Se Ge Se Se Se Se Se Se Ge SH Se Se Se Ge Se Se Se Se SHS Oe Se Se Se SE Se Se Se teeee 
iii ee ee ee ee 
Ww 


ee ee ee ee me ce ec ee ee ee el el ec el ee ee ee ee ee el ed ed ee 


Fe at ot at ot ot at ot ot bt bt bt ek ek ted td te ee 


MR OO OOOOOCOOCO OOOO 


SOO 
Omn 


Re Oe Be Oe Oe Oe Be Oe Be Oe Be Se Se Se Be Se Be Be Be Se Se Se Se Se Se Se Se Be we Oe Se Se ee Be BH Se Oe BH Se Oe Be Be He Be Se Se Se Oe BH Se Be ee SHH ee Be ee 


J ie 
et ala TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 19-3 Sep 
Sep 


08 VAX=-11 Bliss-32 V4.0-742 
STORE_CHARACTER = Store a character in a string 


1:0 
:32: 12 CFORRTL.SRCJFORNMLTAB.B32;1 


0000 00000 STORE_CHARACTER: 
WORD 


. Save no 
50 34° AC 2c AC C3 00002 SuaL3 4a A) Ey RO. 
50 38 AC 10 00 €D 00008 CMP2V #0, #16, 56(AP), 
08 1B OOO0E BLEQU '$ 
346 «BC 18 AC 90 00010 MOVB g4 (AP), @52(AP) 
34 AC 06 00015 INCL 2(AP) 
50 07 DO 00018 1$: MOVL #1, RO 
04 0001B RET 


; Routine Size: 28 bytes, Routine Base: _FORSCODE + N1EA 


; 1370 1422 1 !<BLF/PAGE> 


| 


K 2 
SSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 16-Sep-1984 99: 33:0 AX-11 Oi eeeae V4.0-74 Page 54 FC 
-012 END_CHARACTER = End a character string 14-Sep-1984 12:32:1 FORRTL.SRCJFORNMLTAB.B32;1 (15) 1: 
ZSBTTL "END_CHARACTER = End a character string’ 
ROUTINE END_CHARACTER = 


tee 
! FUNCTIONAL DESCRIPTION: 


LIBSTPARSE action routine which is called at the end of a character string value. 
It blank fills the string if necessary and advances NMLSA_VARSTART and 


WAI.AIANANINNN 


Sle ee ee ee ee el ed ee 


3 3 1 1 

3 1 14e4 1 

7: 1058 | 

3 1 1 ° 1 

3} 428 1! 

] 13 

; 1380 1431 1! NMLSA_VARCUR. If the repeat count is greater than 1, multiple copies 

; } 3] ! ; . are stored. | 
Se BS 1434 1 ! CALLING SEQUENCE: 
3; 1384 1435 1! 

3; 1385 1 § 7: status = END_CHARACTER () 

: 1386 1 . 3 
; 1387 1438 1 ! FORMAL PARAMETERS: 

; 1388 1439 1! 
; 1388 1440 1! NONE 
; 1390 1441 1! | 
: 133) 1206 1 ! IMPLICIT INPUTS: 

7s 8 1443 1! 
; 139 1444 1! AP Points to PARAM_BLOCK 
3 1394 1445 1! | 
3; 1395 1446 1 ! IMPLICIT OUTPUTS: 
3 1396 1447 1 | 
; 1397 1448 1! NMLSA_VARCUR = start of next string 

; 1398 1449 1! NMLSA_VARSTART = start of next string 

3; 1399 1450 1! User variable is modified. 

3; 1400 1451 1! NMLSL_REPEATCT <= 1 

3; 1401 1026 1! 

: 1e06 1453 1 ! COMPLETION STATUS: 

3: 140 1454 1! 
3; 14046 1455 1! 1 for success 

3; 1405 1456 1! 
3; 1406 1457 1°! SIDE EFFECTS: 

3: 1407 1458 1! 

3; 1408 1459 1! NONE 

3; 1409 1460 1! 

3 1410 1461 1 !-- 

3 1411 1066 1 

3 els 146 BEGIN 

3 141 1464 

3 1416 1465 BUILTIN 3 ; 

3 1415 1466 AP; ! Argument pointer points to parameter block 

3: 1416 1467 

3 1417 1468 P 

3: 1418 1469 AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 

3 1419 1470 

3 1430 1471 LOCAL ' 

; 1¢ 1 1076 STRINGSIZE; ! Size of string constant 

3 1238 1474 STRINGSIZE = .AP CNMLSA_VARCUR] - .AP FALSA_VARSTART: 

3 1435 162? af gS TAIMOSIZE LSSU .AP CNML$W_VARSIZE 

3 1426 1477 CHSFILL (2C° *, (.AP CNMLSW_VARSIZE] - .STRINGSIZE), .AP CNMLSA_VARCUR]); 

: re 4 1478 § 

3 1428 1479 '¢ 


— 


F 
1 


ORS 
-01 


2 
SNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 1b-Se -1984 00:31: AX-11 Bliss-32 V4.0-74 
2 END_CHARACTER = End a character string 12786871382 99:33:98 PORRTL SRE TFORNML TAB 6 2:1 


v 
ee 
re} 
e 
~~ 
— 
vw 
w 
~~ 
-_ 


Update the current position in the variable. 


IF <AP CNMLSW STRIDE] NEQ 0 
sa CNMLSA_VARCUR] = .AP CNMLSA_VARSTART] + .AP CNMLSW_STRIDE] 
AP CNMLSA_VARCUR] = .AP CNMLSA_VAREND); 


2.00 00 Co. CD CD CD 


VEWN 0 OONA UE AR SO OONOUE WO 


'¢ 
While repeat count is greater than 1, store multiple copies. 
WHILE vr CNMLS$L_REPEATCT] GTR 1 DO 

a CNML$A_VARCUR] GEQA .AP CNMLSA_VAREND) 


FORSSSIGNAL_STO (FORSK_TOOMANVAL, .AP CNMLS$A_VARNAME]); 
CHSMOVE (AP CNAL SW_VARSIZE] .AP_CNMLSA_VARSTART], .AP CNMLSA_VARCUR)); 


ee ee ee ee ee ee ee ee ee ee ee ee 

Ab dh Ab ehh Ab AL et et tel te del ee ee ee ee ed Sal 

ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ey 

DPA & EEE EEE PEPE PPP PEE 
COWOOOODOOOOOO@Mwom 


Se Se Ge Oe Se Oe ee Be Se OH Se Be Se Be Se ee Be Se Se Be oe OH Se Se Oe Ss we 


MEW OO OONOUSWN OF BNO wT 


AP CNMLSA_ .AP CNML$A_VARCUR) +7. AP CNMLSW_STRIDE); ! Must be array! : 
; AP NMLSL-REPEATCT] = .AP CNMLSL_REPEATCT) = 1; : 
0 : ; 
0 2 AP CNMLSA_VARSTART] = .AP CNMLSA_VARCUR]; 2 
04 2 RETURN 1; F 
05 2 3 
06 1 END; ; 
007C 00000 END_CHARACTER: ; 
» WORD Save R2,R3,R4,R5,R6 : 1424) 3 
56 34 AC 9E 00002 MOVAB 52(AP), R6 + 1474 | ; 
50 66 2c AC C3 00006 SUBL3 44(AP). (R6), STRINGSIZE : | ; 
50 38 AC 10 00 ED 00008 CMPZ7V. #0, #16, 56(AP), STRINGSIZE + 1475 ; 
OF 18 00011 BLEQU 1$ : : 
51 38 AC 3C 00013 MOVZWL S6(AP), R1 3 1477) 3 
50 51 50 ¢3 00017 SUBL3  STRINGSIZE, R1, RO : | ; 
50 20 6E 00 2C 0001B MOVCS #0, (SP), #32, RO, a0(R6) : | : 
90 B6 00020 : | : 
A AC BS 00022 1$: TSTW  S8CAP) > 1483 | ; 
0B 13 900 BEQL e$ : | ; 
50 3A ACCC MOV2WL 58(AP), RO : 1485. : 
66 2c BC40 9E 00028 MOVAB. a44(APSCROJ, (R6) : : 
04 11 00030 BRB 3$ : | : 
66 30 AC dO 0032 38 MOVL 48(AP), (R6) > 1487. : 
01 78 AC D1 00036 3$ CMPL 120(APS, #1 > 1493 | : 
25 15 003A BLEQ 36=s«5$ : | : 
30 AC 66 D1 0003C CMPL (R6), 48(AP) > 1495 : 
OC 1F 00040 BLSSU 4$ : | ; 
28 =AC ODD 0048 PUSHL 40(AP) : 1497. : 
12 DD 0004 PUSHL #18 : ; 
000000006 00 0 FB 0047 CALLS #2, FORSSSIGNAL_STO ; 
00 86 2c saBC 38 AC : O04E 4$ MOVC 26{aP), a44(AP)> a0(R6) : 1498 
3a AC sBC«0005 MOVZ2WL 58(AP); RO > 1499 


fOGRIMMLATABLES FORBENL TABLES TPARGE sate, tables. for WAMEL 1E-SE0~196s 00:91:08 YMG. OL S47 Sz Ms QS7AR 
66 50 co 9 ADDL2 (R6) 
7a Hi DECL 10a) 
8 Bae ee ee 
04 00068 RET 


; Routine Size: 105 bytes, Routine Base: _FORSCODE + 0206 


; 1456 1507 1 !<BLF/PAGE> 


1 for success minal 
0 if the token is of zero length. This is because the pattern matches | 
the null string. 


i SIDE EFFECTS: 


May call INPCONERR_ERROR 
May signal FOR$_INVARGFOR 


oe | 


N 2 
FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 16-Sep-1984 90: 33:08 AX-11 Oi lean V4.0-74 Page 57 
1-012 STORE_REAL = Store a real constant 14-Sep-1984 12:32: FORRTL.SRCJFORNMLTAB.B352;1 (16) | 
ces 208 ZSBTTL "STORE_REAL = Store a real constant’ 
45 09 ROUTINE STORE_REAL = 
460 a9 
461 11 1+ 
106 21¢ FUNCTIONAL DESCRIPTION: 
464 a1 : LIBSTPARSE action routine which converts the real constant at 
ret a? TPASL_TOKENCNT and stores the value in NML$L_CONSBLOCK. 
467 517 ! CALLING SEQUENCE: 
468 518 : 
469 519 : status = STORE_REAL () 
470 520 : 
471 ' FORMAL PARAMETERS: 
of¢ ' 
7 : NONE 
74 2 : 
Le § IMPLICIT INPUTS: 
77 2 : AP Points to PARAM_BLOCK 
8 2 } TPASL_TOKENCNT = Descriptor of token 
39 IMPLICIT OUTPUTS: 
82 3 ' NML$L_CONSBLOCK set to value of token 
:? ; NML$B_CONSTYPE set to K_REAL 
85 H } COMPLETION STATUS: 
3 1 
3 1 
3 ' 
4 ' 
4 " 
4 ' 
4 1 
4 ' 
4 ' 
! 


BEGIN 
BUILTIN : 
AP; ! Argument pointer points to parameter block 
) 
AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 


+ 
If token is of zero length, then return failure. 


IF .AP CTPASL_TOKENCNT) EQL 0 
RETURN 0; 


a ee a a a et at td et “a a = 
ee ee ee ee ee SS S| 


Aw tale al a) al al al Sab al sl ab eal sab eah sh ab sh sh sh eh ah ek eb ah ed ek edad ah a) al eal al al eal Sal eal eal Sal eal eal ele ea) 


PEASANT & & 
POPOPONOPOMONOPONINONONINOUPRIPONYNY 2 2 9 


Be Se Se Se Be Se Se Fe Se Se Se Se Ge Se Be Se Be Se Se Ge Ge Fe Ge FH Se Ge Se Se Ge Ge Ge Se SH Ge Ge Se Se SHS Se Se Se Se Ge Se Se Se Se ee Se Se Se Se Se Se Seas 


POS SSSR SS SNE OR MOSS MO ORO SO Oe 


37 
33 
3% 
34 
; } 
; 3 
3 3 
3 3 
$1 
; 7 
| 
37 
3 4 
; 7 
3; 3 
: 7 
3.3 
; 7 
3; 7 
; 
3; 7 
3; 3 
3 
; 7 
2; y 
3; 7 
.y 
3 7 
3; 7 
3; 3 
3; 7 
; 3 
; 7 
: ¥ 
: 3 
3; 3 
; 3 
gy 
; 7 
; 7 
3 1 
3 7 
3 7 
; 7 
3 7 
; y 
s 7 
= 
3 7 
3; 3 
, 
2 7 
3; 1 
3; 3 
; 7 
; 7 
3 7 


P 
P 

0 

08 

04 

05 
06 
07 
08 
09 
10 

Y} 
13 

14 

é 16 
; 7 
8 18 
9 19 
570 20 
571 21 
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ABLES = TPARSE state tables for NAMEL 18. -Sep-1984 t 99:93:08 AX-11 Bliss-32 v4.0 Page 58 


FORRTL.SRC FORNMLTAB. % 231 (16) 


! Since the pattern for a real matches a string such as D123", which 

! might be an identifier, check for the first wag os a letter. 
i If it is, then store the token, set the value to zero and return. 

i If we don't do this, an identifier Like 199999999999 would get a 

! conversion error immediately. No other ‘'real’’ token can possibly 
t be an identifier. 


- Store a real constant 14-Sep-1984 


IF CHSRCHAR (.AP ETPASt” TOKENPTR]) GEQU %C'A* AND 
—_— (.AP CTPASL_-TOKENPTR]) LEQU %C'z 


N 

AP ENMLSL._ conse. Crt !' Set value to zero 
AP ENML$B~CONSTYPE] «int NTEGER; 
ren” CTPASL STOKENCNT “LEQ 31 

BEGIN 

a. 


TOKEN: REF VECTOR C BYTE); 
TOKEN © AP CWS] TO 
TOK N [0] = BSE epast TOKE KENCNTI; 
CHSMOVE (.AP- CTPASL _TORENCNTI, AP CTPASL_TOKENPTR], TOKEN [1]); 


E 

AP [NMLST_ TOKEN] = 0; 
RETURN 
END 
AP CNML$T_TOKEN] = 0; 


'¢ 
i Depending on the destination type, convert the token appropriately. 


IF ONE_OF (.AP CNMLSB_DTYPE]), 
DSTSK _DTY PE_L, DST$K DTYPE Ww, DSCSK_DTYPE B, F teen _DTYPE_WU, 
yPscsK. ~DTYPE_ “ti, DSCSR_DTYPE_D, DSCSR_DTYPE_D 


“BEGIN 
IF NOT OTSSCVT_T_D (AP CTPASL_TOKENCNT], AP CNML$L_CONSBLOCK)) 
> CALLG (.AP, INPCONERR_ERROR); 


Fe IF ONE_OF (.AP CNMLSB_DTYPE], DSCSK_DTYPE_F, DSCSK_DTYPE_FC) 


BEGIN 
IF NOT OTSSCVT_T_F (AP CTPASL_TOKENCNT], AP CNMLSL_CONSBLOCK)) 
» CALLG (.AP, INPCONERR, ERROR); 


ELSE IF ONE_OF (.AP CNMLSB_DTYPE], DSC$K_DTYPE_G, DSCSK_DTYPE_GC) 


BEGIN 
ten OTSSCVT_T_G (AP CTPASL_TOKENCNT], AP CNMLSL_CONSBLOCK]) 


FC 
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LORS SNL TABLES CORSSHm, TABLES = TPARSE state tables for NAMEL 16-Sep-1984 t 99: 3}: 
1-012 STORE_REAL = Store a real constant 


000000006 


000000006 


000000006 


000000006 


0000v 


000000006 
46 


3; Routine Size: 196 bytes, 


; 1601 1651 1 !<BLF/PAGE> 


Routine Base: 


68 


68 


68 


68 


68 
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_FORSCODE + 026F 


14-Sep-1984 


FS FS OO OOOO 0000 OW NI NII INIA AAA AAMT 
FM MOOAW MOVWOMD OP SFODOOW MO OVvO0VUW 


5$: 
6$: 


7$: 


8$: 


9$: 


10$: 


11$: 


12$: 
13$: 


14$: 
15$: 


16$: 


| AX=11 Bliss-32 V 
PORRTL™ SRC FORNMLTAB. if 231 


4 (AP) 
OTS$SCVT_T_D 
14$ 


#10 


, OTS$SCVT_T_H 
#14 


5 

4 (AP) 

P). INPCONERR_ERROR 
8 

, FORSS$SIGNAL_STO 

* 70(AP) 


Page 60 
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1606 | 
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FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 16-Sep-1984 99: 33:08 AX-11 Oi iat eae V4.0-74 
1-012 STORE_LOGICAL = Store a logical value 14-Sep-1984 12:32: FORRTL.SRCJFORNMLTAB.B52;1 
: 1603 1636 1 ZSBITL *STORE_LOGICAL = Store a logical value’ 
; 1604 1655 1 ROUTINE STORE_LOGICAL = 
; 1605 1654 1 
; 1606 1655 1 S44 
; 1607 1928 1 ! FUNCTIONAL DESCRIPTION: 
; 1608 1657 17! ; : 
: 1609 1658 1! LIBSTPARSE action routine which converts the logical value at 
; 1610 1659 1! TPASL_TOKENCNT and stores the value at NMLSL_CONSBLOCK. If the 
; 1e14 1999 \ token is possibly an identifier, the token iS saved at NMLS$T_TOKEN. 
3 1618 1606 1 ! CALLING SEQUENCE: 
: 1614 1665 1! 
3; 1615 1664 1! status = STORE_LOGICAL () 
: 1616 1665 1! 
: 1617 1666 1 ! FORMAL PARAMETERS: 
: 1618 1667 1! 
: 1619 1668 1! NONE 
: 1620 1669 1! 
; 1621 1670 1 ! IMPLICIT INPUTS: 
: 1622 1671 1! ’ 
; 1623 1976 = AP Points to PARAM BLOCK 
: 1624 1673 1! TPASL_TOKENCNT is descriptor of token 
: 1625 1674 1! 
> 1626 1675 1°! IMPLICIT OUTPUTS: 
: 1627 1676 1! 
; 1628 1677 1! NML$L_CONSBLOCK gets converted value 
: 1629 1678 1! NMLSB_CONSTYPE gets K_LOGICAL | d ae 
: 1630 1679 1! NML$T_TOKEN gets token if possibly an identifier 
: 1631 1680 1! 
: 1632 1681 1 ! COMPLETION STATUS: 
: 1633 1682 1! 
: 1634 1683 1! 1 for success 
: 1635 1684 1! 
; 1636 1685 1 ! SIDE EFFECTS: 
3; 1637 1686 1! 
: 1638 1687 1! NONE 
3; 1639 1688 1! 
: 1640 1689 1 !-- 
3: 1641 1690 1 
: 1642 1691 2 BEGIN 
: 1643 1692 2 
3 1644 1693 2 BUILTIN 
3; 1645 1694 2 AP; ! Argument pointer points to parameter block 
: 1O46 1695 § 
3: 164 1696 P 
$ ioe + 94 § AP: REF BLOCK C, BYTE) FIELD (NMLSFIELDS); 
; 1650 1699 2 IF CHSRCHAR (.AP CTPASL_TOKENPTR]) NEQ ZC*.* AND 
: 1651 1700 -AP CTPASL_TOKENCNT) LEQ 31 
3 1638 1701 THEN 
3; 165 1708 BEGIN 
: 1654 170 oct. 
3; 1655 1704 TOKEN: REF VECTOR C, BYTE); 
: 1656 1705 TOKEN = AP CNML$T_TOKEN); 
; 1657 1706 TOKEN (0) = .AP CTPASL_TOKENCNT); 
; 1658 1707 CHSROVE (.AP CTPASL_TORENCNT), .AP CTPASL_TOKENPTR], TOKEN [1]); 


~n 


EF 


F 3 
FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 16-Sep-1984 00:31:0 AX=11 Page 62 
1-012 STORE_LOGICAL = Store a logical value ate 1 00:3): FORRT i°$ near FORNML Tae. y 2:1 . 195 
: 1660 1709 ELSE 
; 166] 1710 AP CNML$T_TOKEN] = 0; 
: 1808 Wie Orsscvt TLL (ap CTPASL -TOKENCNTI, AP CNML$L_CONSBLOCK)); 
> 1664 171 Pct te. CONSTYPE) = KTLOGICAL 
: 1665 1714 
: 1666 1715 
+ 1667 1716 1 END; 
003C 00000 STORE_LOGICAL: 
.WORD Save R2,R3,R4,R5 : 1653. 
2E 14 aC 91 00002 CMP a20(AP), #46 : 1699. 
17 13 00006 BEQL 1$ : 
1F 10 AC 01 00008 CMPL 16(AP), #31 : 1700 
11. 14 0000C BGTR 1$ : 
50 7C 3=6—AC OOE 0000E MOVAB 124(AP), TOKEN : 1705. 
60 10 ac 90 0001 MOVB 16(AP), (TOKEN) : 1706 
01 Ao 14 BC 10 AC 28 00016 MOVC3 16(AP), @20(AP), 1( TOKEN) + 1707. 
03 11 0001D BRB 2$ : 1699 
7C OAC 34 OOO1F 1$: CLRB 124 (AP) : 1710. 
68 AC 9F 00022 28: PUSHAB 104(AP) : 1712! 
10 AC 9F 90025 PUSHAB 16(AP) : 
000000006 00 02 FB 00028 CALLS #2, OTSSCVT_TL_L 3 
46 «AC 01 90 0002F MOVB #1. 70(AP) + 1713 
50 01 pO 00033 MOVL #1, RO £1714) 
04 00036 RET : 1716. 


; Routine Size: 55 bytes, Routine Base: _FORSCODE + 0333 


; 1668 1717 1 !<BLF/PAGE> 


5 8 
FORSSNML_TABLES FORSSNML TABLES = TPARSE state tables for NAMEL 16-Sep-1984 00:31: AX=11 BLisg=32 V4.0-74 Page 63 F 
1-012. 7 on t p=1984 19:32:12 ERORRTL SRESFORNML TAB B92; 1 29° 48) 1 


2 STORE_COMPLEX = Store a complex constant 14-Sep-1984 
: 1670 1718 1 ZSBTTL_ *STORE_COMPLEX = Store a complex constant’ 
; 1671 1719 1 ROUTINE STORE_COMPLEX = 
: 1o%6 1720 1 
; 167 1721 1 S44 
; 1ore if ¢ : } FUNCTIONAL DESCRIPTION: 
; 1978 17246 1! LIBSTPARSE action routine which converts the current token as a real 
3; 167 1725 1! value anc converts it to either the real part or the imaginary part 
; 1678 1726 1! of a complex value. 
; 1679 1727 1! 
; 1680 1728 1 ! CALLING SEQUENCE: 
>; 1681 1729 1! 
3 1o56 1730 1! status = STORE_COMPLEX () 
; 168 1731 1! 
>; 1686 17 ¢ 1 ! FORMAL PARAMETERS: 
; 1685 17 1! 
3; 1686 1734 1! NONE 
>; 1687 1735 1! 
>; 1688 1736 1°! IMPLICIT INPUTS: 
3; 1689 1737 1! 
; 1690 1738 1! ap Points to PARAM_BLOCK 
: 1691 1739 1! TPASL_TOKENCNY = Descriptor of token 
3 1098 1740 1! NMLSV_IMAG - Set if real part already seen 
; 169 1741 1! 
> 1694 Ihe 1 ! IMPLICIT OUTPUTS: 
; 1695 1743 1! 
; 1696 1744 1! NML$L_CONSBLOCK set to value of token 
; 1697 1745 1! NMLS$B_CONSTYPE set to K_COMPLEX 
3; 1698 1746 1! NMLS$V_IMAG set to 1 
: 1699 1747 1! 
; 1700 1748 1 ! COMPLETION STATUS: 
: 1701 1749 1! 
; 1702 le, ee 1 for success ? 
: 1703 1751 1! 0 if the token is of zero length. This is because the pattern matches 
: 1704 1736 7! the null string. 
; 1705 teil a 
: 1706 1754 1°! SIDE EFFECTS: 
3; 1707 79> 9 ? 
: 1708 1756 1! May call INPCONERR ERROR 
; 1709 1757 1! May signal FORS_INVARGFOR 
: 1710 1758 1! 
3 1711 1759 1 !-- 
3 Har 1760 1 
3; 171 1761 § BEGIN 
3 1716 1786 
3s 1715 176 § BUILTIN f ; 
3 1716 1764 AP; ! Argument pointer points to parameter block 
3: 1717 1765 § 
: 1718 1766 m 
3; 1719 1767 AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 
: 1720 1768 
3 1721 1769 
; Hes 1770 L_DTYPE, ' Local data type 
: 73 177) L_CONSBLOCK: VECTOR (4, LONG]; ! Local constant block 
; 1758 1578 '¢ : 
3; 1726 1774 ! If token is of zero length, then return failure. 
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Ao. es = TPARSE state tables for NAMEL 16-Sep-1984 99: 33:08 eT es v4.0- 


74 Page 64 
X = Store a complex constant 14-Sep-1984 FORR FORNMLTAB.B52;1 ’ 8} 


le 
-AP CTPASL_TOKENCNT] EQL 0 
RETURN 0; 


'¢ 
Depending on the destination type, convert the token appropriately. 


Heme -OF (,AP CNMLSB_DTYPE], BSCSK_DTYPE_F, DSCSK_DTYPE_FC) 


BEGIN 
IF NOT OTSSCVT_T_F (AP CTPASL_TOKENCNTJ, L_CONSBLOCK) 
5 CALLG (.AP. INPCONERR_ ERROR) ; 


ELSE IF ONE_OF (.AP CNMLSB_DTYPE), 
DSCSK_DTYPE_L, DSCSK_DTYPE_W, DSCSK_DTYPE_B, DSCSK_DTYPE_LU, 
Wene sc K-DTYPE WU, DSCSR_DTYPE_D, DSCSR_DTYPE_DC) 


BEGIN 
i ae OTSSCVT_T_D (AP CTPASL_TOKENCNT], L_CONSBLOCK) 
. CALLG (.AP, INPCONERR_ERROR); 


ELSE IF ONE_OF (.AP CNMLSB_DTYPE], DSCSK_DTYPE_G, DSCS$K_DTYPE_GC) 


So 


=—OODNOVES UN —OODNOAUE WN -OOONG 


BEGIN 
hy OTSSCVT_T_G (AP CTPASL_TOKENCNT], L_CONSBLOCK) 
END CALLG (.AP, INPCONERR_ERROR); 


ELSE IF ONE_OF (.AP CNMLSB_DTYPE], DSCSK_DTYPE_H) 


BEGIN 
If NOT OTSSCVT_T_H (AP CTPASL TOKENCNT], L_CONSBLOCK) 
5 CALLG (.AP. INPCONERR_ ERROR); 


ELS 


ELSE IF ONE_OF (.AP CNMLS$B_DTYPE], DSC$K_DTYPE_T) 


BEGIN 
L_CONSBLOCK (0) = 0; ' Store zero result 
CALLG (.AP, INPCONERR_ERROR); 


ELSE 
BEGIN 
| aac ach (FORSK_INVARGFOR); 
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L TABLES FORSSNML_ TABLES = TPARSE state tables for NAMEL 15-Sep-1984 90: 34:0 AX-11 tg v4.0- 


74 P 5 
STORE_COMPLEX = Store a complex constant 14-Sep-1984 FORRTL.SRCJFORNMLTAB.B32;1 age 48) 


— 
' 
oO 


g AP CNMLSB_CONSTYPE] = K_COMPLEX; 


'+ 
: Now convert the local constant to the proper complex type and store in 
} either the real or imaginary part of NMLSL_CONSBLOCK. 


oc CP CD CD 0D 
ooo Sour 


8 


SELECTONE .AP CNMLSB_DTYPE] OF 


DSC$K_DTYPE_FC): 
L DOTYPE = DSCSk_DTYPE.F; 
COSCSR_DTYPE_DC): 
L_BTYPE = DSCSk_DTYPE_D; 
CDSCS$R_DTYPE_GC): 


L_BTYPE = DSCSK_DTYPE_G; 
COTHERWISE): 
L_DTYPE = .AP CNMLSB_DTYPE]; 


TES; 
IF NOT .AP CNMLSV_IMAG) ! If real part 
THEN 


wooononowovono 
ONOULS wr 


OOOO DN NAA SS 
wn 


aR 


BEGIN 
IF NOT FORSSCVT_TYPE (K_REAL, L_CONSBLOCK, 
.C_DTYPE, "AP CNMLSL.CONSBLOCK], 0) 


SELF 


BEGIN 
AP CNMLS$L_CONSBLOCK] = 0; ' Store zero result 
CALLG (.AB, INPCONERR_ERROR); 


END; 
ap CNML$V_IMAG) = 1; 
ELSE 
BEGIN 
IF .L_DTYPE EQL DSCSK_DTYPE_H 
THEN 


POPPI PVPS BB BE EE EE 


2 Cd CD CD OD Cd OD CD 09 CD CD OD OD OD OD OD OD 09 CD CD CD CD CD CD 
NOUS AN © ODNOAOUS WN" OODNOU EWN OOONOUSE 


AAASAOOO 


RETURN 1; 
IF NOT FORSSCVT_TYPE (K REAL, L_CONSBLOCK,, 
CF ct Dive EQL DSC$K_DTYPE_F 
AP CNMLSL_CONSBLOCK] + 4 
AP CNMLS$L_CONSBLOCK] + 8), 
THEN 
BEGIN 
IF .L_DTYPE EQL DSCSK_DTYPE_F 
AP CNMLS$L_CONSBLOCK]+4 = 0 ! Store zero result 


AP CNMLSL_CONSBLOCKI]+8 = 0; 
EALLG (.AP, IRPCONERR_ERROR); 


END; 
RETURN 1; 
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TORSSML TABLES Kee ges! TABLES = TPARSE state tables for NAMEL 18- -S$ep-1984 00:31:0 AX-11 Bliss-32 V4.0-74 e Fi 
1-012 E_COMPLEX = Store a complex constant 14- gep-19 4 00: 33:8 FORRTL.SRCJFORNMLTAB.B32;1 age 85 1 
> 1841 1889 1 END; 


003¢ 00000 STORE. COMPLEX: 


Pete ee Ce Se Se ee Se Se OH ee Se ee ae 


ORD Save R2,R3,R4,R5 ; 1719 
55 0000v CF E 0000 MOVAB _INPCONERR enor RS : 
54 000000006 00 r 000 OVAB FORSSCVT_ » RG : 
3 10 C2 0000E SUBL2 #16, SP ~ : 
5 10 at i 0011 MOVAB 16(AP), R3 + 1777) 
63 05 00015 TSTL (R3) : 
03 12 90017 BNEQ 1$ : 
OOFA 31 0019 BRW 23$ : 
52 44 AC A 0001C 1$: MOVZBL 68(AP), R2 + 1786 
OA 52 91 000 9 CMPBsaR2, iO : 
05 13 000 BEQL © 2$ : 
0c 52 91 00025 CMPBSseR2, #12 : 
10 12 00028 BNEQ  4§$ : | 
4008 8F BB OO02A 2$ PUSHR #*M<R3,SP> : 1789 
000000006 00 02 FB 000 : CALLS #2, OTSSCVT_T_F : | 
57 50 £8 00035 3$ BLBS RO. 118 : 
47 11 00038 BRB 9$ : 1791 
50 18940000 &F 52 78 0003A 4$: ASHL  R2, #462684160, RO > 1796 
0D 18 00042 BGEQ 5$ : | 
4008 8F BB 00044 PUSHR #*M<R3,SP> 3 1799. 
000000006 00 02 FB 00048 CALLS #2, OTSSCVT_T_D ; 
E4 11 O004F BRB : 
1B 52 91 00051 5$: CMPBseR2, «#27 + 1804. 
05 13 00054 BEQL : 
1D 52 91 00056 CMPB—seR2, «#29 : 
0D 12 00059 BNEQ 8 7$ ; | 
4008 8F BB 0005B 6$: PUSHR #*M<R3,S + 1807 | 
000000006 00 02 FB 0005F CALLS #2, OrsscvT. 1G : 
CD 11 00066 BRB : 
1C 52 91 00068 7$: CMPBseR2, #28 > 1812 | 
0D 12 00068 BNEQ : | 
4008 8F BB 0006D PUSHR #*M<R3,SP> > 1815. 
000000006 00 02 FB 00071 CALLS #2, OTS$CVT_T_H F 
BB 11 00078 BRB 3$ ; | 
OE 52 91 0007A 8$ CMPBseR2, #14 > 1820 | 
07 12 00070 BNEQ 10 ; | : 
6E D4 0007t CLRL_ =L_CONSB > 1823 | 
65 6C FA 00081 9S CALLG (AP), PLPEONERR ERROR t 1824. 
09 11 00084 BRB 11$ + 1820 | : 
0 DD 00086 10$:  PUSHL #48 + 1829 
000000006 01 FB 00088 CALLS #1, FORSSSIGNAL_STO ; 
46 04 9 008 11$:  MOVB #4. 70(AP) > 1833. 
44 AC 9A 00093 MOVZBL 68(AP), RO > 1840 | 
50 91 00097 CMPB RO wie > 1842. 
05 ff 009A BNEQ = 12$ : | 
9A DO 0009C MOVL #10, L_DTYPE + 1843 
17 11 Q009F BRB 15$ ; 
30 91 QOOA1 12$: CMPB Ro #13 : 1844 
: if OOA4 BNEQ 13$ ; 
B DO 000A6 MOVL #11, L_DTYPE > 1845 
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14-Sep-19 


ZSBTTL "STORE_REPEAT = Store a repeat count’ 
ROUTINE STORE“REPEAT = 


lee 
FUNCTIONAL DESCRIPTION: 


LIBSTPARSE action routine which stores the repeat count into the 
parameter block. 


i CALLING SEQUENCE: 
status = STORE_REPEAT () 
i FORMAL PARAMETERS: 


NONE 
i IMPLICIT INPUTS: 
AP Points to PARAM_BLOCK 


i IMPLICIT OUTPUTS: 


NMLSL_REPEATCT gets the repeat count 
NML$B-CONSTYPE = K_NULL 


' 
' 
' 
' 
' 
! 
' 
! 
' 
' 
' 
' 
' 
' 
i 
' 
' 
' 
' 
' 
COMPLETION STATUS: 

} 1 for success 

SIDE EFFECTS: 

May signal FORS_SYNERRNAM, syntax error in NAMELIST input 
1 

BEGIN 


BUILTIN 
AP; ! Argument pointer points to parameter block 


MAP 
AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 


IF .AP CTPASL_NUMBER] LEQ 0 
CALLG (.AP, SYNTAX_ERROR); 


AP CNML$L_REPEATCT] = .AP CTPASL_NUMBER); 
AP CNML$B_CONSTYPE] = K_NULL; ! Initially treat as null value 


RETURN 1; 
END; 


FORRTL.SR 


fORERWML.TABLES fORBBWn TABLES. TPARSE, state tables for NAREL 19> seo-198 Peaks HORT OSRESFORWML HRB B82; 1 Page $5 


0000 00000 STORE_REPEAT: 
WORD 


. ve nothin 3; 1892) 

IC AC D5 9000 ‘Sty 3BYapp on" : 1836 

05 14 0000 BGTR 1$ : 

0000v CF 6C FA 00007 CALLG (AP), SYNTAX ERROR : 1937 
78 AC 1c AC 00 O0000C 1$ MOVL gB (AP) 120(AP) : 1939) 
46 AC 94 00011 CLRB 70(A : 1940 

50 01 DO 00014 MOVL #1, RO : 1942 

04 00017 RET + 1944 


; Routine Size: 24 bytes, Routine Base: _FORSCODE + 0483 


; 1898 1945 1 !<BLF/PAGE> 
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DOOWOOOOOODOOVOVOOOVODOOOODODDODODODOODOODOODODOOOODWOO 


BEERS EE EWAANMNANANNIAIDIPNPIPONININININID 2 2 2 OS OO 
DONA UEWN "CO OONOUESWN—"OOOnNOu RUM OODNAME WW IODR NORA 


= PONSNOPIMONIPOPININININYDD 9 9 st 


++ 


N 3 
ORSSNML_TABLES = TPARSE state tables for NAMEL 16-Sep-1984 00:31:0 Ax-11 Blis 
END_REPEAT = End a repeated value 122861 384 9:33:98 PORRTL SRed 


ZSBITL_ "END_REPEAT = End a repeated value’ 
ROUTINE END_REPEAT = 


FUNCTIONAL DESCRIPTION: 


LIBSTPARSE action routine which marks the end of a repeated value. 


i CALLING SEQUENCE: 


status = END_REPEAT () 


i FORMAL PARAMETERS: 


NONE 


i IMPLICIT INPUTS: 


AP Points to PARAM_BLOCK 


! IMPLICIT OUTPUTS: 


NML$T_TOKEN = 0 megning thes this value can't be an identifier 
TPASV_BLANKS = 6, disab ing explicit blank processing 


i COMPLETION STATUS: 


1 for success 


i SIDE EFFECTS: 


NONE 


BEGIN 


BUILTIN . 
AP; ! Argument pointer points to parameter block 


MAP 
AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 


AP [NML$T_TOKEN] = 0: 
AP CTPASV~BLANKSJ = 0; 


RETURN 1; 
END; 


! Inhibit use of this token as an identifier 
! Turn off explicit blank processing 


0000 00000 END_REPEAT: 
7¢ AC 94 00002 CLRB 


-32 V4.0- 
FORNMLTAB 


74 
-B32;1 


Page 70. 
9°20) 


| 

fORRINML TABLES FOROS TABLES = TPARSE state tables for WAREL JF-Sepn19is OO:3h:08  YMGIT SLisHr BR dt 85. Page 36) 
04 A 01 BA 00005 BICB2 #1, 4(AP) : 1990, 

5 1 00 609 MOVL = #1, RO : 1992 

04 0000¢ RET : 1994 


; Routine Size: 13 bytes, Routine Base: _FORSCODE + 0498 


3; 1949 1995 1 !<BLF/PAGE> 


Page 72 


4 
FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 1$-sep-19 4 90:33:08 AX=1 Oi lege te V4.0=74 
1-012 ST :32: CJFORNMLTAB.B52;1 (21) 


1 
ORE_VACUE = Store a value in a variable 14-Sep-1984 1 FORRTL.SR 


: If this was a character string, all values have been stored. 


IF .AP CNML$B_CONSTYPE] EQL K_CHARACTER 
RETURN 1; 


SS2Ssss3 


; 1951 1996 1 ZSBITL "STORE_VALUE = Store a value in a variable’ 

; 1326 1997 1 ROUTINE STORE_VALUE= 

; 195 1998 1 

3; 1954 1999 1 !44 

; 1322 464 : FUNCTIONAL DESCRIPTION: 

; 1957 et 1 | LIBSTPARSE action routine which stores the value just read in the 
; 1958 003 1! current variable. If the repeat count is greater than 1, multiple 
: 1959 004 1: copies are moved. However, if the value was of type CHARACTER, 

; 1960 005 1! all copies have been stored and this routine only returns success. 
3 13e4 808 : If the constant type is NULL, then ‘‘repeat-count’’ values are skipped. 
; 1368 $008 1 ! CALLING SEQUENCE: 

3: 1964 2009 1! 

: 1965 spiy 1! status = STORE_VALUE () 

: 1966 011 1! 

3; 1967 solg 1 ! FORMAL PARAMETERS: 

: 1968 2013 1! 

3: 1969 2014 1! NONE 

; 1970 ys ae 2 

; 1971 2016 1 ! IMPLICIT INPUTS: 

: 1972 2017 1! A 

: 1973 2018 1! AP Points to PARAM_BLOCK 

3: 1974 2019 1! 

3; 1975 2020 1 ! IMPLICIT OUTPUTS: 

3; 1976 2021 1! - ata : 

3 1977 $056 1! The user variable is modified (if value not NULL) 

: 1978 2023 1! 

: 1979 2024 1 ! COMPLETION STATUS: 

: 1980 2025 1! 

3; 1981 2026 1! 1 for success 

3: 1982 2027 1! 

: 1983 2028 1 ! SIDE EFFECTS: 

> 1984 2029 1! : 

; 1985 2030 1! Signals FORS$_SYNERRNAM if an error occurs during conversion. 
: 1986 2031 1! 
3; 1987 2032 1 !-- 

3: 1988 2033 1 
3; 1989 2034 2 BEGIN 

: 1990 2035 2 

3: 1991 2036 2 BUILTIN A ‘ 

3: 1992 2037 2 AP; ! Argument pointer points to parameter block 

3 1993 2038 2 

3 1994 3444 2 P 

: 1995 040 2 AP: REF SLOCK C, BYTE] FIELD (NMLSFIELDS); 

: 1996 2041 2 

3: 1997 Sk 2 + 

: 1998 2043 2 

3 2044 2 

; 2045 § 

: Sk 

; 047 2 

: 048 

5 049 

: 050 

: 051 

; 2052 


MMNMMPNNN 


'¢ 
Check to see if we are past the end of the variable or array 


= 


dD 4 
FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 16-Sep-1984 90 34:08 AX-11 Bliss-32 ag) Page 73 
1-012 STORE_VACUE = Store a value in a variable 14- =Sen- -1984 12:32:1 FORRTL.SRCJFORNMLTAB.B32;1 (21) 
; 2008 2053 
3 2009 054 IF_.AP CNMLSA_VARSTART) GEQA .AP CNMLSA_VAREND] 
; 2010 055 THEN 
3 soi3 056 BEGIN 
; Og 957 FORSSSIGNAL_STO (FORSK_TOOMANVAL, .AP CNMLSA_VARNAME]); 
; 201 sp26 RETURN 0; 
3; 2014 059 3 
; 2015 2060 
: 2016 2061 2 + ; 
3; 2017 $066 § i If this was a repeated null (n*), then skip over values. 
: 2018 206 ie 
3 $08 064 § 
; 2020 065 IF_.AP CNMLSB_CONSTYPE) EQL K_NULL 
; 2021 066 2 TH 
3 $05$ at ¢ WHILE .AP CNMLSL_REPEATCT] GTR 0 DO 
; 2024 2069 3 IF _.AP CNMLSA_VARCUR] GEQA .AP CNMLS$A_VAREND] 
3 2025 2070 3 THEN 
3; 2026 2071 4 BEGIN 
; 2027 song 4 peereee gee -5TO (FORSK_TOOMANVAL, .AP CNMLSA_VARNAME }); 
; 2028 2073 4 peru N 0; 
; 2029 2074 3 END 
3 2030 2075 3 AP eNO VARCUR] = .AP CNML$A_VARCUR] + ,AP CNML$W_VARSIZE]; 
: 2031 2076 3 AP CNML$L_REPEATCT] = .AP CNMLSL_REPEATCT) - 1; 
: 2032 2077 3 
3; 2033 2078 ¢ ELSE 
: 2034 2079 BEGIN 
3; 2035 2080 3 
3; 2036 2081 3 + 
: 2037 att) 3 i Call routine to convert value to the appropriate destination type. 
; 2038 2083 3 i If conversion fails, signal an error. 
3; 2039 2084 3 ie 
3; 2040 2085 3 
3; 2041 2086 3 IF NOT FORSSCVT_TYPE (. -< CNML$B_CONSTYPE], AP CNML$L_CONSBLOCK] 
3 2042 2087 3 P CNMLSB-DTYPE], .AP CNMLSA_VARSTARTJ, 05 
3 2063 2088 3 
3 2044 2089 3 (AP, INPCONERR ERROR); 
3 2045 2090 3 AP CNML SA. VARCUR) = AP CAMLSA_ VARSTART] + .AP CNML$W_VARSIZEJ; 
; 2046 2091 3 
3 2047 $038 3 '¢ : 
3; 2048 2093 3 ! While repeat count is greater than 1, store copies of the value. 
3; 2049 2094 3 te 
3; 2050 2095 3 
3 205, Spee ; WHILE .AP CNMLSL_REPEATCT] GTR 1 DO 
F 083 2098 4 IF .AP CNMLSA_VARCUR] GEQA .AP CNMLSA_VAREND] 
3; 2054 2099 4 THEN 
3 Spee 2100 § BEGIN 
; 2056 2101 § ee STO (FORSK_TOOMANVAL, .AP CNMLSA_VARNAME )) ; 
Be Be ae 
; 2059 104 4 AP fei VARCUR] = CHSMOVE (. ap NAL $4 W_VARSIZE}, .AP CNMLSA_VARSTART], 
; 2060 105 4 A-VARCUR)); 
3; 2061 196 4 AP CNMLSL_REPEATCT] = .AP CWA SL REPEAT) - 1; 
3 oot 107 3 END; 
3; 206 2108 § END; 
3; 2064 2109 


— 
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FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL ise -1984 00:31:0 AX-11 Bliss-32 V4.0-74 P 74 
1-012 STORE.VACUE = Store a value in a variable exgee-13Be 99:35:9 FORRTL. SRC IFORNML TAB B32: 1 29e 1) 
; bee 9 iy ff NMLSV_IMAG if Thi 
P} ' Turn off NMLSV set. Wis lets subsequent complex values get 
3; 2067 ig ' stored correctly. : . 
; 2068 1 ie 
; 2069 114 
: 2070 145 AP CNMLS$V_IMAG) = 0; 
3; 2071 18 
; O78 118 i* d ARSTART b 
$ ! Update V with new position 
: So7% 119 ie 4 
: 2075 120 
: 2076 121 AP_CNMLSA_VARSTART) = .AP CNMLSA_VARCUR]; 
; 207 1 ¢ RETURN 1; 
; 2078 2125 (1 3 
OOFe 00000 STORE_VALUE: 
.WORD Save R2,R3,R4,R5,R6,R7 : 1997 
05 46 AC 91 00002 CMPB) ss 70( AP), #5 > 2046 
03 12 00006 BNEQ 1$ : 
0080 31 00008 BRW 9$ : 
30 AC 2c AC D1 00008 1$: CMPL 44(AP), 48(AP) + 2054 
55 1€ 00010 BGEQU 6$ : 
57 78 AC 9E 00012 MOVAB 120(AP), R7 : 2067 
56 34 AC 3 00016 MOVAB 52(AP), R6 : 2069 
46 AC 95 OOOIA TSTB = 70 (AP) > 2065 
15 12 0001D BNEQ 3$ ; 
67 D5 OOO1F 28: TSTL (R7) : 2067 
60 15 00021 BLEQ = «BS : | 
30 AC 66 D1 00023 CMPL (R6), 48(AP) : 2069. 
3E 1€ 00027 BGEQU 6$ : 
50 38 AC 3C 00029 MOVZWL 56(AP), RO : 2075 | 
te 50 CO 0002D DDL2 RO, (RO) : 
67 D7 00030 DECL (R?) : 2076. 
EB 11 00032 BRB 2$ : 2067 | 
7E D4 00034 3$: CLRL -(SP) : 2086 | 
2c AC DD 00036 PUSHL 44 (AP) > 2087 | 
7E 44 AC 9A 00039 MOVZBL 68(AP), -(SP) : | 
68 AC 9F 0003D USHAB 104(APS : 2086. 
7E 46 AC 9A 00040 MOVZBL 70(AP), -(SP) : 
000000006 00 0° FB 90044 CALLS #5, FORSSCVT_TYPE : 
05 0 €8 00048 BLBS RO, 4$ ; | 
0000v CF 6C FA 00046 CALLG (AP), INPCONERR_ERROR : 2089. 
50 38 =AC 3C 00053 4$: MOVZWL 56(AP), RO : 2090 
66 2¢ BC40 9E 90097 MOVAB a@44(APSCROJ, (RO) ; 
01 67 D1 0005C 5$: CMPL (R7), #1 : 2096 
2 15 0005F BLEQ 8$ ; | 
30 AC 6 01 90061 CMPL (R6), 48(AP) : 2098. 
OE 1F 00065 BLSSU 7$ 3 | 
28 AC DD 00067 6$ PUSHL 40(AP) : 2101. 
12 DD OO06A PUSHL #18 : 
000000006 00 02 FB 906¢ CALLS "2 FORSSSIGNAL_STO ; 
1A 11 000 BRB 10$ ; 
00 B86 2c sa 38 §=6AC 28 00075 78 MOVC3 56(AP), @44(AP), @0(R6) : 
! 


F 4 

conse. TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 16-Sep-1984 00:31:08 VAX-11 Bliss-32 V4.0-742 Page 75. 

1-012 STORE_VACUE = Store a value in a variable 14-Sep-1984 12:32:12  CFORRTL.SRCIFORNMLTAB.B32;1 (21). 
66 53 D0 0007¢ MOVL 3, (R6) ; 

67 D7 0007F DECL = (RP) > 2106) 

D9 11 00081 BRB $ ; 2096. 

45 AC 02 8A 00083 8$: BICB2 #2, 69(AP) ; 2115) 

2¢ AC 66 DO 00087 MOVL (RO), 44(AP) : 2121. 

50 01 DO 00088 9S: MOVL #1, RO : 2122 

04 O008E ET : | 

50 D4 0008" 10$: CLRL RO ; 2123) 

04 00091 RET : | 


; Routine Size: 146 bytes, Routine Base: _FORSCODE + 04A8 


; 2079 2124 1 !<BLF/PAGE> 


NMLSA_VARSTART is advanced one element. 
NMLSA_VARCUR = NML$A_VARSTART 


COMPLETION STATUS: 
1 
SIDE EFFECTS: 


FORS_TOOMANVAL - if this comma implies a skip past the end of the 
variable. 


4 
FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 1-se -1984 00:31: AX-11 Bliss-32 V4.0-74 Page 76 
1-012 NULL_VALOE = Skip an element 1278 08- 1982 99:33:98 FORRTL.SRCIFORNML TAB.B 2;1 ° (22) 
081 125 ZSBITL "NULL_VALUE = Skip an element’ 
eee 1 § ROUTINE NULL_VALUE = 
08 1 
084 128 lee 
ba? ; , } FUNCTIONAL DESCRIPTION: 
087 131 ‘ LIBSTPARSE action routine which is called when a comma is found in place 
088 1 ¢ ! of a value. The pointer to the current element is advanced one element 
089 1 : with no change being made to the current element. Note that if the 
090 134 ‘ current variable is not an ig F an attempt to store a SOX CeNrng value 
091 135 : will be an error. If we have already passed the last element, give 
O36 136 : an error. 
09 137 : 
2094 2138 ' CALLING SEQUENCE: 
2095 2139 : 
096 2140 : status = NULL_VALUE () 
097 2141 ! 
09 $166 ' FORMAL PARAMETERS: 
09 214 ! 
2144 ! NONE 
0 2145 ' 
0 2146 ! IMPLICIT INPUTS: 
0 2147 ! 
e148 ; AP Points to PARAM_BLOCK 
¢150 } IMPLICIT OUTPUTS: 
> ! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


BEGIN 
BUILTIN 
AP; ! Argument pointer points to parameter block 
P 
AP: REF BLOCK C, BYTE) FIELD (NMLSFIELDS); 
'¢ 
If we are already past the end of the variable, give an error. 
4 -AP CNMLSA_VARSTART] GEQA .AP CNMLSA_VAREND] 
FORSSSIGNAL_S/O (FORSK_TOOMANVAL, .AP CNMLSA_VARNAME }); 
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ml ee ed at td od ed 


od ad a cd a cd aed ca cd ce ee eee ao ca ea ca ed ee ce ct en eed ee ce et cat ce eed ed 
SN NNN NOAA AAAAAAA AIIM 
PS Sa NO ARUN OO SOR WN OOO NOUR 


PIPIPIPIPINIPOPDNINYAINIPINYANDNININPINPINPIPINPINPINPINPINIPINIPON 


4 


-~—w 


Be Be Be Oe Oe Oe Oe Be Oe Be BeBe Se Se FH Se See Se Se Se Se Se Se Se Se Se Se Oe Be ee SH Se Se ae HSH Se Se ee Se ee Oe SH ee SESH Se ee Oe SH SH ee SH ee SH ee 


——————_—_—— 


— 
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H 4 

| FORSSNML TABLES FORSSNAL TABLES = TPARSE state tables for NAMEL 16-Sep-19 4 00: 31:08 AX-11 Bliss-32 V4.0-74 Page 77 
|= 012 L_VALOE = ope an element 14-Sep-1984 12:32:1 FORRTL.SRC JFORNMLTAB.B32;1 (22) 

; 138 } ; IF -AP CNMLS$W_STRIDE] NEQ 0 

: 140 4 sina CNMLSA_VARSTART] = .AP CNMLSA_VARSTART] + .AP CNML$W_STRIDE) 

: \4¢ $ AP CNMLSA_VARSTART] = .AP CNMLSA_VAREND); 

: 144 8 AP CNMLSA_VARCUR] = .AP CNMLSA_VARSTART); 

: 146 190 RETURN 1; 

: 214 191 

; 2148 192 1 END; 


0000 00000 NULL_VALUE: 
WORD 


WO Save noth ng : $i 6 
30 AC 2c AC D1 0006 CMPL 44(AP), 4B P) ; 2178 
OC 1F 0000 BLSSU. _—1$ : 
28 AC DD 00009 USHL 40(AP) 3; 2180 
1 DD 0000C PUSHL #18 : 
000000006 00 02 FB BOE CALLS HF FORS$SIGNAL_STO 3 
3A =6—AC. «BS 00015 1$ TSTwW 58 (AP) ; 2182. 
OA 13 00018 BEQL 2s 3 
50 3A AC 3C OOOTA MOVZWL 5S8(AP), RO 3 2184) 
at aA 50 CO OOO1E ADDL2 RO, 44(AP) : 
05 11 00022 BRB 3$ 3 
2c Os AC 30 aC 00 bps 2$: MOVL 4B(AP), 44(AP) > 2186) 
34—S AC 2C AC DO 00029 3$: MOVL 44(AP), 52(AP) : 2188) 
50 01 00 ppg MOVL #1, RO > 2190) 
04 00031 RET 3: 2192) 


; Routine Size: 50 bytes, Routine Base: _FORSCODE + 053A 


: 2149 2193 1 !<BLF/PAGE> 


Re Oe Be Be Se Be Se Se Se Se Bee Se Se Ge SH Se Se Se Se Se Se Se Se Se Fe Se Ge Se Se Se Se Se Se Se SF Se Se Se Se Se SH He Se Se Se Ss Se Oe Se Se Se Oe Se Se Se oe 


————— 


AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 
IF .AP CIPASL_TOKENCNT) LSS 6 
THEN 


Wn 


EXTRA 
CCB: REF $FORSCCB_DECL; 
CCB = .AP CNML$A_C(B); 


'¢ 


' Try to make the string reported include the part of the record 
where the error was. 


SARALLSSSLESE 
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1-012 SYNTAX_ERROR = Signal syntax error 14-Sep-1984 12:352:1 FORRTL.SRCJFORNMLTAB.B32;1 (23) 
: 2151 194 1 XSBITL_ "SYNTAX_ERROR = Signal syntax error’ : 
: 138 195 1 ROUTINE SYNTAX"ERROR = : 
3: 21 138 1 ; 
: 128 197 1 !44 . 
: 123 138 : FUNCTIONAL DESCRIPTION: ‘ 
; 13f oY : LIBSTPARSE action routine which signals a syntax error. : 
; 2159 : 8 1 ! CALLING SEQUENCE: : 
: 2160 § 03; 1! : 
; 10) be : status = SYNTAX_ERROR () : 
; 188 06 1 ! FORMAL PARAMETERS: : 
3 $1e¢ 207 1! 
3: 2165 208 1! NONE 
3; 2166 $508 1! 
3; 2167 2 1 ! IMPLICIT INPUTS: 
; 2168 22 1! 
3; 2169 22 1! AP Points to PARAM_BLOCK 
; 2170 22 1! 
3; 2171 22 1 ! IMPLICIT OUTPUTS: 
3 sit¢ 22 1! 
3: 217 22 1! NONE 
3 2174 22 1! 
3; 2175 22 1 ! COMPLETION STATUS: 
: 2176 22 73 
3; 2177 22 1! NONE 
; 2178 22 1! 
: 2179 22 1 ! SIDE EFFECTS: 
3; 2180 22 1! 
; 2181 22 1! Signals FORS_SYNERRNAM = Syntax error in NAMELIST 
; si8¢ 22 1! 
3; 218 22 1 !-- 
3 2184 22 1 
; 2185 22 2 BEGIN 
; 2186 22 2 
3 $132 22 2 BUILTIN . . 
; 2188 22 § AP; ! Argument pointer points to parameter block 
3: 2189 22 
3 slay 22 2 MAP 
3: 219 22 
: $12 22 
: + 22 
s 21 $ 
: 21 2 
i 21 2 
3: 21 2 
3 2 
: 
3 ; 2 
ie 2 


OOONO MEW 0 DOONAN E WIN $0 ODNOUE WN SO OONOUSWN Oo 


MMP PofPonN — 


LF AP CTPASL_TOKENPTR] GEQA .CCB CLUBSA_BUF_PTR) 


o 
~ 


—————————- 
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1-012 SYNTAX_ERROR = Signal syntax error 14- ~3ep-19 4 99:33:98 FORRTL.SRCIFORNML TAB. ¢ 2:1 9° 23) 
; 2208 1 4 BEGIN 
3 2209 : 4 EXTRA = MAX AP CTPASL_TOKENCNT))); 
: 10 ; é IF AP cTPASL OF OKENP TRA - .EXTRA LSSA .CCB CLUBSA_BUF_PTRI 
; 1g $ 6 EXTRA = .AP CTPASL _TOKENPTR] = .CCB CLUBSA_BUF_PTRI; 
: 221 § 4 AP CTPASL _TOKENCNT TAP CTPASL_TOKENCNT) + EXTRA; 
: 2216 4 AP CTPASL-TOKENPTR .AP CTPASL-TOKENPTR] = .EXTRA;: 
: 2015 38 END; 
; bY 2B END; 
+ 2218 61 FORSSSIGNAL_STO (FORSK_SYNERRNAM, AP CTPASL_TOKENCNT)); 
; 19 6¢ RETURN 0; 
; $y 6 
> 2201 2264 1 END; 
0004 00000 SYNTAX_ERROR: | 
.WORD Save R2 : 2195. 
06 10 AC 01 00002 CMPL 16(AP), #6 > 2236) 
30 18 00006 BGEQ 486s 3$ : 
51 40 AC 00 00008 MOVL 64(AP), CCB + 2242 
BO Al 14 AC D1 0000C CMPL g0CAP), -80(CCB) + 2249 | 
25 1F 00011 BLSS $ 3 
50 06 10 AC C3 00915 SUBL 16(AP), #6, RO > 2252) 
02 18 00018 BGEQ 1 : 
50 D4 OOO1A CLRL ~— RO ; 
52 50 b9 O001C 1$: MOVL. RO, EXTRA : | 
50 146 AC 52 ¢3 OOO1F SUBL3 EXTRA, 20(AP), RO : 2253. 
BO Al 50 01 00024 CMPL RO, -80(CCB) ~ : 
06 16 00028 BGEQU 2$ . : | 
52 146 AC BO Al ¢ 000¢A SUBL3 -80(CCB), 20(AP), EXTRA > 2255 | 
10 AC 52 ¢€0 00030 28:  ADDL2 =~ EXTRA, 16(AP) ; 2256 | 
4 A 52 C2 00034 SUBL2 EXTRA. 20(AP) 3 2257 
10 AC 9F 00038 3$: PUSHAB 16(APS > 2261 | 
11 DD 00038 PUSHL #17 : 
000000006 00 02 FB 0003p CALLS #2, FORSSSIGNAL_STO : 
50 D4 00044 CLRL = RO : 3262 
04 00046 RET ; 2266 | 


; Routine Size: 71 bytes, Routine Base: _FORSCODE + 056C 


3; 2222 2265 1 !<BLF/PAGE> 


F 
1 
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1-012 INVREFVAR_ERROR = Signal invalid variable refer 14-Sep-1984 12:32: FORRTL.SRCJFORNMLTAB.B52;1 (24) 
ZSBTTL "INVREFVAR_ERROR = Signal invalid variable reference error’ 
ROUTINE INVREFVAR-ERROR = 


1+ 


+ 
FUNCTIONAL DESCRIPTION: 


LIBSTPARSE action routine which signals an invalid variable 
reference error. 


CALLING SEQUENCE: 
Status = INVREFVAR_ERROR () 
FORMAL PARAMETERS: 


NONE 
IMPLICIT INPUTS: 

AP Points to PARAM_BLOCK 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION STATUS: 

NONE 


SIDE EFFECTS: 
Signals FORS_INVREFVAR - Invalid reference to variable in NAMELIST 


Re et eet ee ee ee ee ee ee te ee ee ee te te 


Se Oe Oe Oe Oe Be Be Ge Be Be Se Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se BH Se Se Se Se ee ee 


BEGIN 
BUILTIN 
Be AP; ! Argument pointer points to parameter block 
2264 06 P 
$502 44 AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 
3267 09 LOCAL 
268 10 DESCR: VECTOR (C2, LONG) 
269 311 VARNAME: REF VECTOR C, BYTE); 
271 318 VARNAME = .AP CNMLSA_VARNAME]); 
$7 314 DESCR CO) = .VARNAME (0); 
e7 315 DESCR C1) = VARNAME (1); 
274 318 aie (FORSK_INVREFVAR, DESCR); 
$$72 31 RETURN 0; 
76 318 
2277 319 END; 


4 
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1-01 INVREFVAR_ERROR = Signal invalid variable refer 1a-8ep-19 4 99:33:98 FORRTL. RCIFORNMLTAB.B 2;1 . (28) 
0000 00000 INVREFVAR_ERROR: 

pUORg Save nothing i 2267 

f 0 cé 0 SUBL 5 
28 OA MOVL  4OC(AP), VARNAME + 2313 
E 60 9A MOVZBL (VARNAME), DESCR + 2314, 
04 AE 01 AO 9E MOVAB. 1(RO), DESCR+4 + 2315, 
SE DD PUSHL SP : 2316 
13 DD 0001 PUSHL #19 : | 
000000006 00 Q FB 0001 CALLS #2, FOR®SSIGNAL_STO : 
4 0001C CLRL RO : 3317 
4 OOO1E RET : 2319 


; Routine Size: 31 bytes, Routine Base: _FORSCODE + 0583 


; 2278 2320 1 !<BLF/PAGE> 


edhe MLE AR Recipe nase tieped coerce ves? 


mM 4 
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1-012 ONERR_ERROR = Signal input conversion error 14-Sep-1984 12:32:1 FORRTL.SRCJFORNMLTAB.B52;1 (25) 
ZSBTTL ‘INPCONERR_ERROR = Signal input conversion error' 
OUTINE INPCONERR_ERROR = 


Wo 


ae 
FUNCTIONAL DESCRIPTION: 


Peco mcececscs 


SIDE EFFECTS: 
Signals FORS$_INPCONERR, input conversion error 


FORS 
INPC 
: 1 
; 
: 5 ' 
: 5 6 ‘ 
; 6 7 : Routine which signals FORS_INPCONERR, ‘input conversion error’’ 
; 7 8 ; with a chained message piyin the text and record number. Although 
; 2288 9 ' called as if it were a LIBSTPARSE action routine, in fact it is 
; 4 , only called from other action routines. 
91 : CALLING SEQUENCE: | 
; 38 4 1! status = INPCONERR_ERROR () 
; 2294 35 : 
7 95 336 ' FORMAL PARAMETERS: 
; 2296 337 ! 
; 2297 338 ‘ NONE 
98 339 ! 
44 $ IMPLICIT INPUTS: 
01 3 ; AP Points to PARAM_BLOCK 
08 : IMPLICIT OUTPUTS: 
5 NONE | 
COMPLETION STATUS: 
! NONE 


BEGIN | 


BUILTIN : : 
AP; ! Argument pointer points to parameter block 


Pp 
AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 


LOCAL 
CCB: REF SFORSCCB_DECL; 


CCB = .AP CNML$A_CCB); ! Get CCB address 


'¢ 

! If the file is indexed organization or is an internal file (unlikely, 
! since that's not allowed), then use the message that doesn't have 

! a record number. Otherwise chain the message with both text and 
record number. Signal it as a continuable error. 


~~ 

to 
ow 
—o* 
ne 


N 

ORSSNML_TABLES = TPARSE state tables for NAMEL 16 
NPCONERR_ERROR = Signal 4 
I 


rorornornonoerororerory 


WANN 
Sa et et ee ee ek 


AVISWN OOO 


; Routine Size: 


4 
“Se 
-Se FORR 


IF (.CCB CLUB$B_ORGAN] EQL LUBSK_ORG_ INDEX) OR 
(.CCB CLUBSWOLUN] EQL LUBSK_LON_ENCD 


N 
FORSSSIGNAL (FORSK_INPCONERR, FORS_INVTEX, 1, AP CTPASL_TOKENCNTJ) 
FORSSSIGNAL (FORSK NP CONERR FORS_INVTEXREC, § 
el of CTPASL_TOKENCNTJ, .CCB CLUBSL_LOG_RECNO) = 1); 


END; 


S 

nput conversion error 14S p19 
D 
) 


001C 00000 INPCONERR_ERROR: 
QORD 


00 Save R2,R3,R4 

54 000000006 00 9€E 0000 MOVAB FORSSSIGNAL, R4 

38 40 AC DO 0000 MOVL  64(AP), CCB 

5 10 AC 9E 0000D MOVAB 16(AP), R3 

03 C4 A2 91 00011 CMPB ss =60 (CCB), #3 
08 13 00015 BEQL =‘ 1$ 

FFFR BF (6 Ag Bi 00017 CMPW 3s = 58 (CCB), #5 
13 12 0001D BNEQ 2$ 
53 DD OOOIF 1$: PUSHL R3 
01 DD 00021 PUSHL #1 
0018883C 8F DD 00023 PUSHL #1607740 

7E 40 8F 9A 00029 MOVZBL #64, -(SP) 

64 04 FB 000¢0 CALLS #4, FORSSSIGNAL 
16 11 00030 BRB 

EO A2 01 C3 00032 2s: SUBL3. #1, -32(CCB), -(SP) 
53 DD 00037 PUSHL R3 
02 DD 00039 PUSHL #2 
00188834 8F DD 00038 PUSHL #1607732 

7E 40 8F 9A 00041 MOVZBL #64, -(SP) 
05 FB 00045 CALLS #5, FORSSSIGNAL 
50 D4 00048 3$ CLRL — RO 

04 0004A RET 


Routine Base: _FORSCODE + 05D2 


1 !<BLF/PAGE> 


~— 


=198¢ 92:32:18 EPORRTLeSReSFORNML TAB. 
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1-012 BLANKS_OFF = Turn off explicit blanks 14-Sep-1984 12:52:1 FORRTL.SRCJFORNMLTAB.B52;1 (26) | 


ZSBTTL "BLANKS_OFF = Turn off explicit blanks’ 
ROUTINE BLANKS_OFF = 


1+ 
FUNCTIONAL DESCRIPTION: 


Turns off explicit blank processing for LIBSTPARSE. When off, blanks 
are implicit separators. 


CALLING SEQUENCE: | 
status = BLANKS_OFF () 
i FORMAL PARAMETERS: 


WAG 
OO 0c 


SODNAOVEWN —$ OODNAUES WN “OVO ONAUES WN O OONAOUSWN—O” 


0 NONE | 
0 ! IMPLICIT INPUTS: 
0 AP Points to PARAM_BLOCK 


IMPLICIT OUTPUTS: 

PARAM_BLOCK CTPA$V_BLANKS] = 0 
COMPLETION STATUS: 

1 for success 
SIDE EFFECTS: 


80 2 NONE 

81 2 

o¢ 2 - 

8 2 

84 2 BEGIN 

85 2 

86 2 BUILTIN , 

+44 § AP; ! Argument pointer points to parameter block 
389 2 P 

Se : AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 

392 2 AP_CTPA$V_BLANKS) = 0; ! Turn off blank processing 
393 3 RETURN 1; 

394 4 

395 35 END; 


0000 00000 BLANKS_OFF ; 


RD Save nothing ; 2390. 

046 AC 01 8A 00002 BICB2 #1, 4(AP) > 2432 | 
50 01 DO 00006 MOVL #1, RO : see 

04 00009 RET > 2435 | 


HOOT -TABLES BDRNKSYOFF =furn off explicit Banks ("NAMED fe ep-198e 49:32:09 — EPGRRTLSSRCTFORNML TAB.682; 1 Page (283 


; Routine Size: 10 bytes, Routine Base: _FORSCODE + 061D 


; 2396 2436 1 !<BLF/PAGE> 


Ba Se Oe Oe Se Se Se Se Se Se Se Se Se Se Ge Ge Se Ge Ge Ge Se Ge Se Se Se Ge Ge Se Se Se VHS Se FETE SE Se SESH Se ee Se SHS Se Se Se SESH SH SH Oe Se Se Se Seas 


FORSSNML_TABLES FORSSNML_T 
1-012 BLANKS_ON 
H $95 437 1 

; 2399 438 1 

; 2400 439 1 

3; 2401 440 1 !+ 
3 ret 441 1! 
: 240 44 7 3 
3: 2404 44 7% 
; 2405 444 1! 
; soos 445 1! 
; 2407 446 1! 
; 2408 447 1! 
3; 2409 448 1! 
: 2410 449 1! 
3: 2411 2450 1! 
3 stig 2451 1! 
3 241 sees 1! 
3 24146 245 2 
3 2415 2454 1! 
3 2416 2455 1! 
3: 2417 2456 1! 
: 2418 2457 1! 
3; 2419 2458 1! 
: 2420 2459 1! 
3: 2421 2460 1! 
3: 2422 2461 1! 
3 2425 ae: 1! 
> 2424 246 7 ? 
3 2425 2464 1! 
3: 2426 2465 1! 
3: 2427 2466 1! 
: 2428 2467 1! 
3 ah 44 2468 1! 
3; 2430 2469 1! 
3 2431 2470 1 !- 
3; 2432 2471 «#1 

3; 2433 2472 2 

3 2434 2473 2 

3: 2435 2474 2 

: 2436 2475 2 

: 2637 2476 

: 2438 2477 

3 2439 sore 

3: 2440 479 

3 2441 2480 

3: 2442 2481 

3 2463 sees 2 

s 2444 248 1 


_ ee 


dD 5 
ABLES = TPARSE state tables for NAMEL 1en~sen~ 138% 00:31: 
- Turn on explicit blanks 14-Sep-1984 12:32: 


ZSBTTL_ “BLANKS_ON = Turn on explicit blanks’ 
ROUTINE BLANKS_ON = 


+ 
FUNCTIONAL DESCRIPTION: 


Turns on wong be hy blank processing for LIBSTPARSE. 
are not implicit separators. 


CALLING SEQUENCE: 
status = BLANKS_ON () 
FORMAL PARAMETERS: 


NONE 
IMPLICIT INPUTS: 
AP Points to PARAM_BLOCK 


IMPLICIT OUTPUTS: 
PARAM_BLOCK CTPASV_BLANKS] = 0 
COMPLETION STATUS: 
1 for success 
SIDE EFFECTS: 
NONE 
BEGIN 
BUILTIN 
AP; 


p 

AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 
AP _CTPASV_BLANKS) = 1; 
RETURN 1; 


0000 00000 BLANKS_ON: . 


WO 

04 Ac ot 88 00002 BISB2 
50 1 D0 00006 MOVL 
04 00009 RET 


! Turn on blank processing 


0 AX-11 Bliss 
1 FORRTL.SRCJ 


When on, blanks 


! Argument pointer points to parameter block 


=32 V4.0-74 
FORNMLTAB.B52;1 


Page 3 


—_—_—_—_ 


iOGENM TABLES onan 


; Routine Size: 10 bytes, 


ES - Lagos 5 
urn on explic 


Routine Base: 


; 2445 2484 1 !<BLF/PAGE> 


ate tables for NAMEL 
t blanks 


_FORSCODE + 0627 


avr seo-1984 00:41:08 


t 


ne 8 2:1 
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FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 16-Sep-1984 99: 3] 08 AX-11 Bliss-32 v4.0 Page ge 
1-012 LOOKUP_IBENTIFIER = Lookup identifier in NAMELI 14-Sep=1984 2: PORRTLeS CIFORNMLTAB. yf 2;1 (28) 
> 2447 485 1 ZSBTTL "LOOKUP_ IDENTIFIER = Lookup identifier im NAMELIST group’ 

> 2448 4 1 ROUTINE LOOKUP_IDENTIFIER = 

3; 24469. 4 1 

3; 2450 488 1 !+4 

: 2451 489 1 | FUNCTIONAL DESCRIPTION: 

; ra 490 1! 

; 2465 491 1! Searches the Tt group for an identifier which matches the 

3; 2454 138 13 current token. If found, the descriptor information is entered into 
3 t2? ret, : the parameter block. If not found, an error is signalled. 

; 2457 495 1! CALLING SEQUENCE: 

: 2458 £36 1/ 

3; 2459 497 1: Status = LOOKUP_IDENTIFIER () 

; 2460 2498 1! 

3; 2461 2499 1 | FORMAL PARAMETERS: 

3 rh 2500 1! 

; 246 2501 1! NONE 

: 2464 $208 1/ 

; 2465 2503 1 ' IMPLICIT INPUTS: 

; 2466 2504 1 | 

: 2467 2505 1! AP Points to PARAM_BLOCK 

: 2468 $208 1! 

: 2469 507 1 ! IMPLICIT OUTPUTS: 

; 2470 2508 1! 

3; 2671 2509 1! PARAM_BLOCK CNMLSA_VARNAME] = address of variable name counted string 
3 247 2510 1! PARAM_BLOCK CNMLSA_VARSTART] = address of variable low byte 

3: 247 +) a PARAM_BLOCK CNMLSA_VAREND] = address of next byte past end of variable 
3 2474 e312 1! PARAM_BLOCK CNMLSA_VARCUR] = same as VARSTART 

: 2475 2513 1! PARAM_BLOCK eg etd Ae = size of a variable element in bytes 

: 2476 2514 1! PARAM_BLOCK eg etd ty stride between elements if array, else 0 
3 2477 2515 1} PARAM_BLOCK CNMLSB_DTYPE]) = descriptor datatype code of variable 

: 2478 sei§ 1! PARAM_BLOCK ee er keeeatcts = 0 

: 2479 4 71! PARAM_BLOCK CNMLSL_REPEATCT) = 1 

; 2480 518 1: PARAM_BLOCK CNMLS$V_IMAG] = 0 

> 2481 2519 1} PARAM_BLOCK (NMLSV-VALUE_IDENT] = 0 

3; 248 2520 1 i PARAM_BLOCK [NMLSV_ SUBSTRING] = 0; 

; ret $35) : PARAM_BLOCK CNML$V_SUBSCRIPT) = 0; 

3; 2485 2598 ! COMPLETION STATUS: 

: 2487 : 1 for success 

3 3680 2 7 : SIDE EFFECTS: 

+ 2691 535 1! Signals FORS_INVREFVAR = Invalid NAMELIST variable if identifier is not in 
3: 249 530 1! the current group. 

: 249 531 1: 

> 2494 5 ; 1 i- 

s 2495 5 1 

3 249 534 BEGIN 

: 249 535 

: 2498 25 § BUILTIN ; : 

3 2499 5 AP; ! Argument pointer points to parameter block 

: 2500 538 

; 2501 539 P 

; 2502 540 AP: REF BLOCK C, BYTE) FIELD (NMLSFIELDS); 

3; 2503 2541 


— 


~_ wm 
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1-012 LOOKUP_IDENTIFIER = Lookup identifier in NAMELI 14-Sep-1984 12:32: FORRTL.SRCJFORNMLTAB.B352;1 (28) 
3 one tg LOCAL 
; 2505 $7 NML_LIST: REF VECTOR C, LONG); ! Pointer to List descriptor 
: 209 545 NML_LIST = .AP CNMLSA_LISTBLOCK]; ! Get List block address 
me 6 
; 2510 28 ! Loop through identifier List looking for a matching identifier. If none 
; a1 4 found, signal an error. Loop value will be true if no match found. 
3 218 551 
3 2514 226 F ¢ 
; 212 227 i DECAY | ROM -(NML_LIST €13)<0,16,0> TO 1 DO ! Count is first word of second longword 
3; 2517 555 4 NML_LIST = NML_LIST (2); ! Move to next identifier in List 
$ 218 228 ? If COMPARE _UPCASE (.NML_LISTCOJ, AP CTPASL_TOKENCNTJ) 
; 2520 $324 4 EXITLOOP 0; ! Loop walue false if a match is found 
3 $25) 2559 3 ) 
3 256 2560 THEN 
3; 25e 2561 BEGIN 
> 2524 S206 '¢ 
; 2525 2565 3 ! If we get here, there is no match. Signal an error giving the variable 
; 2526 2564 ' name. 
; sesi 2565 !- 
3; 2528 2566 
; 3349 3967 ; FORSSSIGNAL_STO (FORSK_INVREFVAR, AP CTPASL_TOKENCNT)); 
3 tt 2569 RETURN 0; ! Execution should never return here 
; S256 2570 ; END 
3 253 sol 
; 2534 2r¢ 2 ELSE 
; 2535 257 
: 2536 2574 BEGIN 
; $2ee 2575 
; 2538 2576 '¢ 
3; 2539 2577 3 ! A match has been found. Fill in the parameter block from the 
: seco 2578 ' descriptor. 
3 2541 579 te 
3 $2¢ 580 
3 254 581 LOCAL 7 
; Sece $206 DESC: REF BLOCK C, BYTE]; ! Variable descriptor 
: 2546 $8h4 AP CNMLSA_VARNAME) = .NML_LIST (0); _! Address of name counted string 
3 2547 oe DESC = .NAL_LIST (1); ! Descriptor address 
3; 2548 586 
3; 2549 587 '¢ 
: 2550 588 ! Validate descriptor class and datatype 
: 2551 589 \ Note: The use of the ONE_OF macro here assumes that 
3 226 590 : neither a datatype code of 0 nor a class code 
: 255 591 ! of 0 is one of the valid ones. If this 
3 2554 236 : is no longer true, the value must first be tested to 
3 336 $2 ensure that it is not greater than 127 (unsigned). \\ 
: 255 595 
3; 2558 P 236 If NOT ONE_OF (.DESC CDSCSB_DTYPE), 
; 2559 P 259 DSC$K_BTYPE_BU, DSCSK_DTYPE_B , DSCSK_DTYPE_wu, 
; 2560 P 2598 DSCSK_DTYPE_W , DSCSK_DTYPE_LU, DSCSK_DTYPE_L , 
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FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL rhese -1984 00:31:0 AX-11 Bliss=-32 V4.0-74 p 1 Fl 
1-012 LOOKUP_IBENTIFIER = Lookup identifier in NAMELI ae 09:3): FORRTL. RCIFORNMLTAB.B 2:1 age 33) 1 
; 2618 $28 '¢ 3 
; 2619 6 ! Since FORTRAN insists on passing us datatype 3U for a signed byte, ; 
; 2620 928 ! change it here. ; 
5 2601 6 ie F 
: 26 ¢ 660 : 
; 6 ; 661 IF .AP CNML$B_DTYPE) EQL DSCS$K_DTYPE_BU : 
+ 2625 66 AP CNML$B_DTYPE) = DSC$K_DTYPE_B; ; 
+ 2626 664 END; : 
: 2607 665 ; 
; 2628 2666 § RETURN 1; ' Success : 
: 3649 667 ; 
: 2630 665 1 END; ; 
O1FC 00000 LOOKUP_IDENTIFIER: 
.WORD Save R2,R3,R4,R5,R6,R7,R8B : 2486 
58 000000006 00 9€ 00002 MOVAB FORSSSIGNAL_STO, R8 : | 
56 24 AC DO 00009 MOVL  36(AP), NML-LIST > 2545. 
55 10 AC 9E 0000D MOVAB 16(AP), : 2556) 
57 04 Ab 3C 00011 MOVZWL 4(NML_LIST), 1 : 
O£ 11 00015 BRB : 
56 08 CO 00017 1$ ADDL2 #8, NML_LIST : 2555 
54 66 8 OOO1A MOVL (NML_LIST), R4 : 2556. 
0000v 30 0001D BSBW § COMPARE_UPCASE F 
0 50 £8 60020 BLBS RO, 3$ : 
57 D7 00023 DECL ] : 2553, 
FO 12 00025 28 BNEQ ~==1$ : 
55 DD 00027 PUSHL RS ; 2567 | 
13 DD 00029 PUSHL #19 : | 
68 02 FB 00028 CALLS #2, FORSS$SSIGNAL_STO : | 
56 (11 000¢E BRB 6$ : 2569 | 
28 66 DO 00030 %% MOVL (NML_LIST), 40(AP) : 2586 | 
52 04 Ad DO 00024 MOVL 4 (NMC_LISTS DESC > 2585 
50 3BBEOO1C BF 02 A2 78 00038 ASHL (DEST), #1602307612, RO ; 2601 | 
3 18 00041 BGEQ $ ; 
01 03 A2 91 00043 CMPB (DESC), #1 > 2603 | 
06 13 00047 BEQL «6s 48 : 
04 03 Ag 91 00049 CMPB =-«-3(DESC), #4 : 
32 12 00040 BNEQ 5$ : 
3c AC 06 A 09 9006 4$ MOVL 4(DESC), 44(AP) + 2614. 
4 ac 04 A2 dO 00054 MOVL  4(DESC). S2¢AP) + 2615 | 
38 aC é 80 9039 MOV (DESC), S6(AP) + 2616 | 
44 OAC 02 A 090 MOVB 2(DESCS, 68(AP) > 2617 
3c 52 D0 0006 MOVL ESC, 60(AP) > 2618 | 
04 03 A2 91 00066 CMPB (DESC), #4 : 2620 | 
A iF 006A BNEQ . ; 
10 OA A 5 €1 0006C BBC #5, 1OCDESC), 5$ : 2630. 
OA A $ 2 0071 BBC #6. 10(DESC), 5$ : 26 1} 
OA A 3 0076 TSTB =—_-: 10 (DESC) + 2632 | 
06 1 79 BGEQ 5$ : 
07 0B Ae 91 078 CMPB  =s«ONW: (DESC), #7 : 2633 
9 18 0007F BLEQU 7$ : 
0 DD 00081 5$: PUSHL #48 > 2636 


FORSSNML_TABLES FORSSNML TABLES = TPARSE state tables for NAMEL 
1-012 P_IBENTIFIER = Lookup identifier in NAMELI 
68 91 FB 0 3 CALLS #1, FORSSSIGNAL_STO 
6 1) gs: BRB 11§ 
30 aC eC AC o¢ A2 ¢1 00 $: ADDL3 12(DESC), 44(AP), 48(AP) 
A AC 8 AC 60 O08F MOVW  56(AP), 58(AP) 
0D 11 00094 BRB 9$ 
50 g AC C 00096 8 MOVZWL 56(AP) 
30 AC C BC40 9E O009A MOVAB 2e APS EROD, 48 (AP) 
A AC Bs Ag CLRW 38 (AP) 
46 «AC 94 OOOA3 98 CLRB O(AP) 
78 «AC Or DO 000A6 MOVL #1, 120(AP) 
45 AC F BA OOOAA BICB2 #15, 69(AP) 
02 44 AC 91 OOOAE CMPB ss @B(AP), #2 
04 12 0008 BNEQ 10$ 
44 AC 06 90 000B4 MOVB #6, 68(AP) 
50 01 D0 000B8 10$:  MOVL #1. RO 
04 00088 RET 
50 D4 000BC 11$:  CLRL RO 
04 O00BE ET 


; Routine Size: 191 bytes, Routine Base: _FORSCODE + 0631 


: 2631 2669 1 !<BLF/PAGE> 
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0000 00000 SET_VALUE_IDENT: : 
-@ORD Save nothing : 367) | 
45 AC 04 88 00002 BISB2 #4, 69(AP) > 271s 
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“012 SET_VALUE_IDENT = Mark that last token is suppo 14-Sep-1984 12:32:1 FORRTL.SRCJFORNMLTAB.B32;1 (29) 
633 670 1 ZSBITL "SET_VALUE_IDENT = Mark that Last token is supposed to be an identifier’ 
6 671 1 ROUTINE SET_VALUE_IDENT = 
635 ore 1 
6 6735 1 !+44 
° : ore ’ FUNCTIONAL DESCRIPTION: 
2639 676 1! LIBS'PARSE action routine which is called when the character following 
sect 677 1! a value token indicates that the Last token is supposed to be an 
641 678 1! identifier. It sets a flag in the parameter block which is checked 
ong 244 : when the next identifier is needed. 
644 eal 1 ! CALLING SEQUENCE: 
645 6 ; 1! 
646 6 +} status = SET_VALUE_IDENT () 
647 684 1! 
648 685 1 ! FORMAL PARAMETERS: 
649 686 1! 
650 687 1! NONE 
651 688 1! 
$26 689 1 ! IMPLICIT INPUTS: 
65 2690 1! 
654 2691 1! AP Points to PARAM_BLOCK 
655 2692 1! 
$028 2695 1 ! IMPLICIT OUTPUTS: 
657 2694 1! 
2658 2695 1! NMLSV_VALUE_IDENT = 1 
$023 2696 1! 
660 697 1 ! COMPLETION STATUS: 
661 698 3! 
o6¢ 2699 1! 1 
66 2700 1! 
664 2701 1 ! SIDE EFFECTS: 
2665 2702 1! 
2666 2703 1! NONE 
et sie 2s 
668 705 1 !-- 
2669 sie 1 
sory 707 BEGIN 
671 2708 
sore 2709 BUILTIN ‘ ; 
sor? 679 AP; ! Argument pointer points to parameter block | 
sere ar} P 
3 at AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 
678 715 AP CNMLSV_VALUE_IDENT] = 1; 
679 2716 RETURN 1; 
680 2717 
681 2718 #1 END; 
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; Routine Size: 10 bytes, Routine Base: _FORSCODE + 06F0 


; 2682 2719 1 !<BLF/PAGE> 
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1-012 WAS_VALUE_IDENT = Lookup Last value as an ident 14-Sep-1984 12:32: FORRTL.SRCJFORNMLTAB.B52;1 (30) | 1 
XSBTTL "WAS VALUE _ IDENT = Lookup last value as an identifier’ 
ROUTINE WAS_VALUE_IDENT = 


oe 
FUNCTIONAL DESCRIPTION: 


LIBSTPARSE action routine which is called when an identifier is needed. 
If NMLSV_VALUE_IDENT is 1 then the last value token is supposed to be 
an identifier. Otherwise, 0 is returned. The last value token, if it 
could possiely be an identifier, was stored in NML$T_TOKEN., We call 
LOOKUP_IDENTIFIER to see if it is. If the Last token wasn't of type 
REAL or LOGICAL or if the token Length is zero, we fail. 


CALLING SEQUENCE: 
status = WAS_VALUE_IDENT () 
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AP 
AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 
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' ; 
i : 
i 
i : 
i 3 
i 3 
i 3 
i : 
i 3 
i ; 
i : 
i : 
i : 
2700 ! : 
2701 73 ' FORMAL PARAMETERS: 3 
sie 73 ! 3 
70 73 ‘ NONE : 
2704 se ! 3 
2705 74 ' IMPLICIT INPUTS: 3 
2706 274 ' : 
2707 thy ' AP Points to PARAM_BLOCK | : 
2708 74 ! NML$V_VALUE_IDENT 3 
2709 274 ' NML$T_TOKEN 3 
2710 274 ! | ; 
2711 274 ! IMPLICIT OUTPUTS: 3 
sie 274 ! 3 
271 274 ! See LOOKUP_IDENTIFIER | : 
2714 275 ! 3 
2715 275 ' COMPLETION STATUS: | 3 
2716 275 ! 3 
2717 275 : 1 if LOOKUP_IDENTIFIER succeeds | : 
2718 275 ! 0 if last token isn't an identifier s 
2719 275 ! : 
2720 275 ' SIDE EFFECTS: 3 
2721 e75 ! ; 
722 275 ! See LOOKUP_IDENTIFIER | 3 
723 275 ! 3 
724 sf6 lee 3 
2725 76 3 
726 276 BEGIN ; 
ist $f6 3 
728 76 BUILTIN 3 
37 > $76 AP; ! Argument pointer points to parameter block ; 
731 276 
a4 76 
73 76 
Hy 
7 
77 
77 
2 
2 2 
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734 LOCAL 

735 TOKEN: REF VECTOR C, BYTE); 

736 7 

737 '¢ ; : 
738 ! If NMLSV_VALUE_IDENT is 0, then fail. 
739 77 te 

740 77 
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; 2741 777 If NOT .AP CNML$V_VALUE_IDENT) 
3; 274 ak TH 
: 274 77 RETURN 0; 
3 2744 780 
3 2765 781 '¢ 
3: 274 7 ¢ i If Last constant type is not REAL or LOGICAL or INTEGER or if token Length 
3; 274 7 ' is zero, then we have a syntax error. 
2c ee 
; 2750 786 IF NOT ONE_OF (.A Bog CONSTYPE], K_REAL, K_LOGICAL, K_INTEGER) OR 
3 2751 787 .AP CNMCST _TOREN EQL 0 
: 03g ree THEN 
3: e7 789 BEGIN 
3; 2754 790 
3 2755 791 we reached this state by matching TPA$_LAMBDA just at the fet initer 
3: 2756 79 i that caused us to think that the Last value token was really 
3; 2757 793 «3 i Fdentitier, TOKENPTR points to that delimiter and TOKENCNT” is "0. 
5 sf28 794 3 i Increment TOKENCNT so that the delimiter will be in the error 
3; 2759 795 3 i message. 
: 2760 796 3 ie 
3; 2761 797 3 
: $f6¢ 2798 3 AP fie TOKENCNT] = .AP CTPASL_ TOKENCNT) + 1; 
3; 276 2799 3 CALLG (.AP, SYNTAX “ERROR); 
3 2764 2800 § ty | 
3 2765 2801 
3: 2766 2802 2 
3 2767 2803 2 '¢ 
; 2768 2804 2 ! Construct token from NML$T_TOKEN. 
3: 2769 2805 2 !- 
; 2770 2806 2 | 
3; 2771 2807 2 OKEN = AP CNML$T_TOKEN]; 
3 alte 2808 2 MP CTPASL_TOKENCNT]) = . TOKEN (0); 
: 2773 2809 2 AP CTPASL”TOKENPTR] = TOK KEN C1); 
3 2774 2810 2 RETURN CACLG (.AP, LOOKUP_IDENTIFIER); 
3; 2775 2811 2 | 
3; 2776 2812 1 END; | 
0000 00000 WAS_VALUE_IDENT: 
-@ORD Save nothing 3 2721. 
28 45 AC 02 4 0000 BBC #2, 69(AP), 3$ 3 2777 | 
50 70000000 8F 46 AC 78 0000 ASHL 70(AP), #1879048192, RO : 2786 
05 18 00010 GEQ 1$ 3 
7¢ AC 95 Bobig TSTB 124 (AP) 3; 2787 
08 12 0001 BNEQ 2s 3 
10 AC D6 00017 1$: INCL 16 (AP) 3: 2798. 
FES3 CF 6C FA Baie CALLG (AP), SYNTAX_ERROR § 2799 | 
50 7C «AC YE QOOIF 2$: MOVAB dia tl TOKEN : 2807 | 
10 AC 60 9A 00023 MOVZBL (TOKEN 16CAP) ; 2808 
14 AC 01 AO 9E 4 7 MOVA 1(R0), ety AP) ; 2809. 
FFO6 «CF 6C . 4 f cues (AP), *LOOKUP_IDENTIFIER ; 2810 | 
50 D4 $0 2 3$ CLRL RO : 2812 | 
04 00034 RET ; 
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; Routine Size: 53 bytes, 


LES = TPARSE rare tables for 
= Lookup fast value as an 


AMEL 
dent 


Routine Base: _FORSCODE + O6FA 


; 2777 2813 1 !<BLF/PAGE> 
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me 
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OMPARE_OPCASE = Compare str FORR FORNMLTAB.B32;1 (31) 


Sh Mae ae © tho oe Rens meme Tee ee ee ee ee es tee eee a 
| 
ngs upcased 14-Sep-19 | 
| 


; 2779 B18 1 XSBTTL *COMPARE_UPCASE = Compare strings upcased’ 

; 2780 15 1 ROUTINE COMPARE UPCASE ( 

; 2781 a18 1 CSTRING_ADR, 

3 4 Ws STRING2_ 

; 278 818 1 ) : JSBLUCOMPARE_UPCASE = 

> 2786 819 1 

; 2785 820 1 I++ 

: rs : 1 : + FUNCTIONAL DESCRIPTION: 

: 2788 28 g } } Compare two strings: the counted string whose address is CSTRING_ADR 
; 2789 2824 1! and the sir tne described by the descriptor STRING2 : e 

; stay 5852 1! STRING2_ DSC string is upcased for the comparison; the CSTRING_ADR 

: {44 soso : } string 7s assumed to be already upcased. 

; $198 2828 1! Comparison continues until a nonmnetching character is found or until 
> 2794 A t34 1! one of the strings is empty. No blank-filling is done. 

; 2795 2830 1! 

; 2796 2831 1 ! CALLING SEQUENCE: 

; 2797 sore , { 

; 2798 28335 1! matches = COMPARE_UPCASE (CSTRING_ADR, STRING2_DSC) 

: 2799 2834 1! 

; 2800 2835 1 ! FORMAL PARAMETERS: 

: 2801 2836 1! Oe 

; 2802 2837 1! CSTRING_ADR - The address of a counted string whose count is in the 
$ see $e38 : first byte. Assumed to be uppercase. 

; 2805 2840 1! STRING2_DSC - The address of a string descriptor. This string will 
; 2806 2841 1! be forced to upper case during the comparison. The 
3; 2807 sete 1! string itself is not modified. 

: 2808 2843 1! 

; 2809 2844 1 ! IMPLICIT INPUTS: 

; 2810 2845 1! 

; 2811 2846 1! NONE 

; 2812 2847 1! 

; 2813 2848 1 ! IMPLICIT OUTPUTS: 

; 2814 2849 1! 

; 2815 2850 1! NONE 
; 2816 2851 1! 
; 2817 oee¢ 1 ! FUNCTION VALUE: 

; 2818 2855 1! : : 

3; 2819 2854 1! 1 if the strings are equal 

; 2820 2855 1! 0 otherwise 

; 2821 2856 1! 

: $86 2857 1 ! SIDE EFFECTS: 

: 282 2858 1! 

; 2824 2859 1! NONE 

3 2825 2860 1! 

; 2826 2861 1 !-- 

: 2827 $e0g 1 

: 2828 2865 2 BEGIN 

; $e¢) 2864 3 

; 2830 865 MAP 

; 2831 866 CSTRING_ADR: REF VECTOR C, BYTE], 

: o35 867 STRING2 DSC: REF BLOCK C, BYTE); 

: 283 868 

3 2834 B62 LOCAL 

; 2835 870 STRING2_ADR: REF VECTOR C, BYTE], 


Be Be Se Oe Oe BeBe Be Se Se Be Bee Se Se Se Se Se Se Se Be Se Se Ge SH Se Se SH Se Se Se SH Se Oe SESH Se Oe He Se SHS SH Oe See Se Se Se Se Be Be SH ee BH ee 
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COMPARE _OPCASE = Compare strings upcased 14-Sep-19 FORRTL FORNMLIAB. B32;1 (31) 
; 28 871 STRING1_LEN: WORD; 
$ att 87 ” 
: $836 B2 i*e ing lengths. If th 
3 ' Compare string lengths. they don't match, return failure. 
: 5840 875 a _— 
: 2841 a78 
3; 284 87 STRING1_LEN = .CSTRING_ADR [0]; 
; 843 878 LF ~STRING]_LEN NEQU .STRING2_OSC CDSC$W_LENGTH] 
; 28645 2880 RETURN 0; 
; 2846 881 
: oth BBS ie i f li 
3 ! Compare strings for equality. Lengths must match. 
: Saag 5884 pees ° oe ’ 
: 2850 2885 
; 2851 2886 DS aya ADR = .STRING2_DSC age POINTER); 
$ see 2887 INCRU I-FROM 1 TO .STRING1 LEN 
; spec gees JF .CSTRING_ADR C£.1] NEQU 
; $Bee spot ¢ tr stained ADR (0) GEQU XC AND .STRING2_ADR [0] LEQU 2C 
; U %C'a' AND . NG2_A LEQU %C°z' 
3; 2857 $e3e 4 THEN M2 7 
; 2858 893 5 CHSRCHAR_A (STRING2_ADR) - (%C'a’ = %C'A') 
; 2859 2894 & ELSE 
; 2860 $o32 4 CHSRCHAR_A (STRING2_ADR) 
3; 2861 896 4 
; see 2897 3 THEN 
: 286 2898 3 RETURN 0; ! Unequal character found 
3: 2864 2899 2 END; 
: 2865 2900 § 
; 2866 2901 '¢ 
3; 2867 344 2 i If we get here, then the match is successful. 
; 2868 2903 2 ie 
; 2869 2904 ¢ 
3; 2870 2905 RETURN 1; 
: 2871 2906 2 
: 2872 2907 1 END; 
50 64 98 00000 COMPARE_UPCASE: 
MOVZBW (CSTRING_ADR), STRINGI_LEN F sere 
53 50 3C 00003 MOVZ2WL STRINGi_CEN Rs : 2878 
53 65 Bi 90006 CMPW = (STRING2_ Hae ; 
33 a 0009 BNEQ 5$ : 
51 04 AS D 0008 MOVL 4(STRING2_DSC), aT ; 2886 
52 9 DO O000F MOVL “i, 1 3; 2887 
1 11 00012 ARS 4$ : 
61 8F 61 91 00014 1$: CMPB (STRING2_ADR), #97 ; 2891 
OE 1F 00018 BLSSU 2$ 3 
7A —soOaBF 1 91 QOO1A CMPB (STRING2_ADR), #122 3 
8 1A 3 BGTRU 2$ 3 
50 1 9A oly SEI RI NGC ADR), RO 3; 2893 
50 9 C2 000 SUBL #32, RO 3 
11 00026 BRB 3$ ; 
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F 6 
16-Sep-1984 00:31:0 om 
10385-1382 99:35:4 FORRTL.SRCJFORNMLTAB.B32;1 


XSBTTL "DUMP_NAMES = Respond to ‘'?"' inquiry’ 
ROUTINE DUMP_NAMES = 


'¢ 


i FUNCTIONAL DESCRIPTION: 
LIBSTPARSE action routine which is called when '?' is seen 
in place of a variable. If this file is a terminal on which we 
have PUT access, call FORSSDO_NML_OUTPUT to dump the group name 
and variable names in the current namelist group. 
CALLING SEQUENCE: 
status = DUMP_NAMES () 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
AP Points to PARAM_BLOCK 
IMPLICIT OUTPUTS: | 
NONE 
COMPLETION STATUS: 
1 
SIDE EFFECTS: 
May List namelist group on terminal. 


Page 101. 
9°32) 


BEGIN 
BUILTIN ‘ . 
AP; ' Argument pointer points to parameter block 
P 
AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 


GLOBAL REGISTER 
CCB = 11: REF SFORSCCB_DECL; 


CCB = .AP CNML$A_CCB); 
'¢ 


i If we are on a terminal with PUT access, List the namelist group. 


! Load CCB register 


PPP DPOPPPIPIPINININIAIN NIN IID a tt ts tk kk hk kt hh 


= CCB: REF SFORSFAB_CCB_STRUCT, 


6 
FORSSNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 18-58 =1984 00:31: AX-11 Bliss-32 V4.0-74 Page 1 
Bets: DUMP_NAMES = Respond to °'?"’ tneutty 12-8 08- 1 3be 99:33:98 FORRTL. RCIFORNMLTAB.B 2:1 . (433 
3 1 367 FAB_DEV = FAB CFABSL_DEV]: BLOCK (4, BYTE]; 
3 2g 96 IF .FAB_DEV CDEVS$V_TRM] AND .FAB CFABS$V_PUTI 
3; 29 968 THEN 
; 2935 969 4 BEGIN 
; 29 $ 970 & FORSSREC_WSNO (); ! Start output record 
: 29 971 4 FORSSDO_AML_OUTPUT (1); ! Dump names only 
1; 29 378 END; 
3; 2939 97 END; 
; 2940 974 
3; 2941 975 RETURN 1; 
: 2946 976 
3: 294 977 END; 
| 
083C 00000 DUMP_NAMES: 
WORD Save R2,R3,R4,R5,R11 : 2909 | 
58 40 AC 00 00002 OVL 64(AP), CCB : 2956 
50 0084 CB 9E 00006 MOVAB 132(R11), RO > 2965 
13 60 02 €1 00008 BC #2, (RO), 1$ 3 2967 | 
OF SA AB E9 OO000F BLBC 9O(FAB), 1$ : 
000000006 00 16 00013 JSB FORSSREC_WSNO : 2970 
01 pd 00019 PUSHL #1 : 2971 | 
000000006 00 01 FB 0001B CALLS #1, FORSSDO_NML_OUTPUT : 
50 01 DO 00022 1$: MOVL #1, RO : 2975. 
04 00025 RET : 2977) 


; Routine Size: 38 bytes. Routine Base: _FORSCODE + 0770 


FORSS 

1-012 

; 2945 978 
3 B68 97 
3; 294 980 
; 2948 981 
> 2949 9 ; 
; 2950 9 

: 2951 984 
5 926 985 
; 295 986 
3; 2954 987 
: 2955 988 
; 328 989 
; 295 990 
; 2958 991 
: 2959 9D 
; 2960 99 
: 2961 994 
é + 41 2995 
; 296 996 
3 2964 997 
3; 2965 2998 
: 2966 999 
3: 2967 000 
: 2968 001 
3: 2969 300 
; 2970 300 
3; 2971 3004 
: 297 3005 
3; 297 3006 
3: 2974 3007 
3; 2975 3008 
: 2976 3009 
3: 2977 3010 
; 2978 3011 
3; 2979 a51§ 
3; 2980 301 
3 344 3014 
3 oa6 3015 
3; 298 3016 
3: 2984 3017 
: 2985 $018 
: 2986 019 
: 2987 020 
: 2988 bs! 
3; 2989 0 § 
3; 2990 0 

: 2991 024 
; 336 025 
3; 299 026 
: 2994 027 
: 2995 3028 
3 2996 $082 
: 2997 030 
3; 2998 031 
: 2999 bss 
; 3000 03 
; 3001 3034 
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NML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 19-3007 138% 90:33:08 AX-11 Oi iat 
DUMP_VALOES = Respond to ‘'=?"' inquiry 14-Sep-1984 :32: TL. SRC 


FORR 


ZSBTTL "DUMP_VALUES = Respond to ‘'=?"' inquiry’ 
ROUTINE DUMP"VALUES = 


'e 


'e¢ 

FUNCTIONAL DESCRIPTION: 

LIBSTPARSE action routine which is called when ‘=?' is seen 
' in place of a variable. If this file is a terminal on which we 
: have PUT access, call FORSSDO_NML_OUTPUT to dump the group name 
and variable names and values in Ehe current namelist group. 
! CALLING SEQUENCE: 

status = DUMP_VALUES () 
FORMAL PARAMETERS: 

NONE 

; IMPLICIT INPUTS: 

AP Points to PARAM_BLOCK 
i IMPLICIT OUTPUTS: 

NONE 

COMPLETION STATUS: 

! 1 

: 

} SIDE EFFECTS: 

; May List namelist group on terminal. 
' 


BEGIN 
BUILTIN 
AP; ! Argument pointer points to parameter block 
P 
AP: REF BLOCK C, BYTE] FIELD (NMLSFIELDS); 


GLOBAL REGISTER 
CCB = 11: REF SFORSCCB_DECL; 


CCB = .AP CNML$A_CCBI; ! Load CCB register 


'¢ 
If we are on a terminal with PUT access, List the namelist group. 


FAB = CCB: REF SFORSFAB_CCB_STRUCT, 


— 


~ wm 
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6 
SNML_TABLES FORSSNML_TABLES = TPARSE state tables for NAMEL 14-56 -1984 31:0 AX-11 Bliss-32 V4.0-74 Page 104 
2 DUMP_VALOES = Respond to "=?" inquiry 12-8 08-13be 99:33:4 FORRTL. RCIFORNMLTAB.B 2;1 . 33} 
; poe 4 ‘ FAB_DEV = FAB CFABSL_DEV]: BLOCK (4, BYTE); 
5 3004 0 IF .FAB_DEV CDEVSV_TRM] AND .FAB CFABSV_PUTI 
: 3005 038 THEN —~ = 4 
$ 4 039 4 BEGIN 
; 300 040 & FORSSREC_WSNO (); ! Start output record 
; 3008 041 4 FORSSDO_AML_OUTPUT (0); ! Dump names and values 
: 3009 bes END; 
; 3010 04 END; 
: 3011 044 
; Oe 045 RETURN 1; 
; 301 $009 
3 3014 047 END; 
083C 00000 DUMP_VALUES: 
-WORD Save R2,R3,R4,R5,R11 : 2979 
5B 40 AC 00 00002 MOVL 64(AP), CCB 3 q08e | 
50 0084» CB «9E 00006 MOVAB © 132(R11), RO ; 3035) 
13 60 02 €1 00008 BBC #2, (RO), 1$ ; 3037) 
()F SA AB E9 0000F BLBC 90(FAB), 1$ : 
00000000G 00 16 00013 JSB FORSSREC_WSNO ; 3040. 
7E 04 00019 CLRL -(SP) 3; 3041. 
000000606 00 01 FB 0001B CALLS #1, FORSSDO_NML_OUTPUT 3 
50 01 D0 00022 1$: MOVL #1, RO ; 3045) 
04 00025 RET 3 3047) 


; Routine Size: 38 bytes, Routine Base: _FORSCODE + 0796 
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FORS T F ab ages T - TPAR A ° AX- iss- -74 
fons NML_TABLES FO L_TABLES SE atane tab - for NAMEL 1b-se Sep 138% 99: i}: 98 X-11 Bliss-32 V4.0 rege, 3 


DUMP_VALOES = Respond to inqu -Sep-1 FORRTL.SRCJFORNMLTAB.B32;1 
; 3 1g an8 END ! End of module FORSSNML_TABLES 
: 3018 50 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 


_LIBSKEYOS 8 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
-LIBSSTATES 1050 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
_f ORSCODE 1980 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


: woeceeece Symbols wceeeecs Pages Processing 
: File Total Loaded Percent Mapped Time 

: _$255$DUA28: SYSLIBISTARLET -L 32:1 9776 37 0 581 00:01.1 
; ~$255$DUA28:CFORRTL. JFORLIB.L32;1 711 216 30 52 00:00.5 
; _$255$DUA28: CFORRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 
: ~=$255$DUA28: SYSLIBJTPAMAC.L32:1 42 27 64 14 00:00.1 
; COMMAND QUALIFIERS 

3 BLISS/CHECK=CF SELB. INET IAL .OPT INI ZED /MOTRACE/L IS=L 158 3 ORMML TAB/0BJ=08.)8: FORMAL TAB MSRC$:F ORNML TAB/UPDATE=(ENHS$:F ORNMLTAB 
3; Size: 1980 code + 1050 data bytes 

; Run Time: 01:58.7 

; Elapsed Time: 04:10.6 

3 Lines/CPU Min: 1541 

3 Lexemes/CPU-Min: 73012 

: Y Used: 417 pages 

; Compilation Complete 
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